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COMMON 2-5 and 10 MEGABYTE DISC FORMATTER 

TEST PROGRAM DESCRIPTION 
1- GENERAL 
The 06-251 Formatter Program formats the 2.5 and 10 Megabyte disc 
packs and performs extensive error checking on each. sector. A 
list of defective sectors (if any are detected) is produced as 
the sectors are flagged defective. ‘This list identifies 
defective sectors by Logical Block Address (position within the 
linear array of sectors on the pack), and by Cylinder, Head, and 
Sector Address. 


2¢ REQUIREMENTS 


The following is a list of the minimum hardware required to run 
this test: . 


e Processor: Model 7/16, 7/32, or 8/32 (or equivalent). 
e Minimum Memory: 16K Bytes 

® selector Channel (SELCH or ESELCH) 

e 2e5 or 10 Mb Disc Controller, Drive, and Pack 


°e Censole Input Device (refer to Appendix A): Teletype, Video 
Display Unit, or Carousel 


le List Device (refer to Appendix A): Teletype, Video Display 
Unit, Carousel, or Line Printer 


e The 06-251 Formatter program requires a properly operating 
disc systeme 


The fcllowing test program Should be run prior to this test: 


e Common Disc Test 06-173 
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The following is a list of requirements of the system under test: 
e Device Addresses 


The Disc System Controller should be strapped for device 
address xX‘'B6°. If the address is different, the DISCON 
ortion must be entered. Refer to Appendices B and C. 


Each Disc Drive is assumed to be strapped for device 
addresses xX'‘'C6', xX'D6', X‘E6°, and xX'F6‘', for drives 0-3 
respectively. A 10 Mb disc has the controller address of 
X"'B6°, the fixed discs have addresses X'C7', X‘'D7‘', X‘ET', 
X'F7°, and the removable discs have addresses X‘*C6', X'‘'D6°, 
X*E65, X*F6°. A 2.5 Mb disc has the controller address of 
X¥*B6", and the removable discs have addresses X‘'C6', X‘D6°, 
X*°E6°, and X°F6°. There are no fixed discs on a 2-5 Mb disc. 
The address is trapped by the Controller, and is not 
specifically entered by any option. To select the desired 
Drive, the DRIVE option must be entered. Refer to Appendixes 
B and C. 


The Selector Channel (SELCH or ESELCH) is assumed to be 
strapped for device address X'FO'. If the address is 
different, the SELCH option must be entered. Refer to 
Appendixes B and C. , 


& Hardware Changes 


The Format Switch on the Disc System Controller must be 
manually set to the FORMAT position before executing this 
program. When formatting is finished, the Format Switch 
should be placed in the NORMAL position to prevent accidental 
destruction of the data written to the sector headers. 


Ss LOADING PROCEDURES 

S41 Object Tape Format 

The 06-251M17 Tape is an Absolute, Non-Zoned Memory Image [Tape 
with Front End Boot Loader. The program occupies approximately 
16 kb of memory.e 

3.2 Multimedia and Floppy Disc Loading Procedure 

To load this program from the Perkin-Elmer Multimedia Diagnostic 
System refer to Publication Number 06-176M95A15. To load this 


program from the Perkin-Elmer Floppy Disc Diagnostic System, 
refer to Publication Number 06-225M95A15. 
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3.3 Normal Loading Procedures 


1. Manually enter the xX‘'50'° sequence shown below, into 


Mmemorye 
LOCATION ; CONTENTS 
X'30° X*'0000° 
x32" X*0000° 
X'34° X'0000° 
X'36° X'0Q050° 
X*50° X*D500" 
x52" X'OOCF® 
X*'54° X*4300° 
x? 56° X'0080° 
for Current Loop X'78° X'Q294° 
for HSPTR X'78° X°0399' 
for HSPTR/P K* 738° X¥'1399° 
for Micro I/O Bus X*'78° X*CO082° 
for 800 bpi mag tape Xx -78:* X*85A1° 
for floppy media disc X°78° X'C186° 


Ze Place the program tape in the reader. 

3. Execute at address X‘'30°. 

4. When the processor halts, observe the value displayed on 
the console display Registers D1 and D2. If it is zero, 
loading is complete; otherwise, repeat the loading 
“procedure. If there is no display, observe general 
register 6: if it is not zero, repeat the loading 
procedure. 


5. Refer to Appendix A and set up the addresses for console 
input device and the list device. 


6- Address memory location X‘AOO‘'. 


7. Start program execution. Observe the following title is 
output to the list device: 


COMMON 2.5 AND 10 Mb DISC FORMATTER 06-251 
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4“. PROGRAM EXECUTION 


Manually place the format switch on the Disc System Controller in 
the FCRMAT position, mount the disc pack(s), and put the required 
Drive(s) on-line. 


To FORMAT a disc pack, refer to Section 4.1. 
To FLAG sectors defective manually, refer to Section 4.4. 


To CLEAR recorded information, refer to Section 4.5. 


TABLE 1- OPTIONS TO BE ENTERED 


OPTION KPPLICATION DEFAULT 


SELCH Selector Channel Address X'FO* 
DISCON Disc Controller Address X*B6" 


DRIVE Selects any Drives 0-3 (Removable) NONE 
or 4-7 (Fixed) 


| PACTYE Identifies Pack Type and CE Packs Xx'0001'° 


 LOCYL Low Cylinder Address X*FFFF' air, 


HICYL High Cylinder Address X* FFFF* 


FMTSEC Format by Sector (1) or by Track (0) 1 


We 4 Formatting the Disc Pack 


For a 10 Mb disc, from one to eight disc packs on the same 
controller may be formatted sequentially without user 
intervention. For a 2.5 Mb disc, from one to four disc packs on . 
the same controller may be formatted sequentially without user : 
intervention. 
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He 1.1 Default Formatting Procedure. 

This section describes the procedure required to format a single 
10 Mb disc pack mounted on Drive 0- The procedure for the 2.5 
disc pack is the same except the HICYL option is set to X‘CA‘ 


instead of X*197" and the PACTYP option is set to zero instead of 
One@e ; 


4.2 Optional Formatting Procedures 
The DRIVE, LOCYL, HICYL, FMTSEC, and PACTYP options may be 


changed from the default values to provide the desired program 
function. Refer to Appendices B and C. 


4.3 Messages Output 


1e After the FORMAT command is’ entered, the cylinders 
between LOCYL and HICYL (inclusively) are formatted for 
each indicated Drive. Defective sectors are written 
with the DEF SEC (TRK) bit set in the sector header, and 
the following message is output to the List Device for 
each sector flagged defective: 
DEF SEC FLAGGED mmmmmmmm TTT HH KK 
wheres mmmmmmmm is the sector's Logical Block Address 
TTT is the Cylinder Address 
HH is the Head Address 
KK is the Sector Address on the track 


If the FMTSEC option is zero, the message appears in the 
following format: 


DEF TRK FLAGGED mmmmmmmm TTT HH 


wheres mmmmmmmm Ls the Logical Block Address for sector 
zero of the flagged track 


and all other printout is a described above. 
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ui 


The program tests each sector after flagging, for 
Defective Sector status from the Disc System Controller. 
If the expected status is not returned, the following 
message is output to the List Device: 


FLAG REJECTED mmmmmmmm TTT HH KK < --=- X 


where: Mmnmmmmmm is the Logical Block Address for the 
sector which cannot be flagged and all other printout is 
as described above. 


If a single, recoverable error is detected for any 
sector, the following message is output to the List 
Devices 


SOFT ERROR mmmmmumm TTT HH KK 


where: mmmmmmmm TTT HH and KK identify the sector 
producing the soft error. For critical applications, 
any sector identified in the SOFT ERROR message may 
later be manually flagged as defective (see Section 
u“eu). 


When formatting is complete for the packs on all 
specified Drives, the sequence terminates, an asterisk 
is output to the Console Device, and the program waits 
for user input. 


NOTES 


ae Special care should be taken not to use 
any sector identified in the FLAG 
REJECTED message. In some Operating 
System environments, the disc pack must 
be considered unusable if FLAG REJECTED 
is printed. 


be Invalid Cylinder Addresses are bypassed 
for a CE packe The invalid cylinder 
addresses are X‘'10%, X'100', xX‘'105', 
and X'192°. 


ce If an unrecoverable error status is 
returned from the currently selected 
disc Drive while formatting, the next 
Drive specified by the DRIVE option (if 
any) is selected. When all specified 
Drives have been selected, the sequence 
terminates. No attempt is maie to 
re-select a Drive. 


de. If it is desired to halt the formatting 
process, depress and hold the BREAK 
(BRK) key on the console I/0 device. 
Formatting stops when the current 
cylinder is complete. 
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ue. Manual Sector Flagging 

This program allows the user to set the Defective Sector bit in 
the header of any specified sector, by entry of the commands 
detailed below. The user may wish to flag those sectors (if any) 
identified in the SOFT ERROR message during the formatting 
PLOCeES. 


If the FMTSEC option is ONE, a sector may be flagged defective by 
entering one of the following commands: 


FLAG mmmmnmmm + Or 
FLAG TTT HH KK €R) 


where: mmmmmmmm is the Sector's Logical Block Address 
TTT is the Cylinder Address 

HH is the Head Address 

KK is the Sector Address 


If the FMTSEC option is ZERO, all sectors on the indicated track 
may be flagged by entering one of the following commands: 


FLAG mmmmanmmm + OF 
FLAG TTT HH 


wheres: the operands are as explained above. 

The indicated sector is written with the DEF SEC bit set in the 
sector header, and the appropriate message is output to the List 
Devicee 

DEF SEC FLAGGED mmmmmmmm TIT HH KK 3; or 

DEF TRK FLAGGED mmmmmmmm TIT HH 


where: in the DEF TRK FLAGGED message, mnammmmmm is the Logical 
Block Address for sector zero on the indicated track. 


The program tests each sector after flagging, for Defective 
Sector status from the Disc System Controller. If the expected 
status is not returned, the following message is output to the 
List Vevice: 

FLAG REJECTED mmmmmmmm TTT HH KK < --=- X 


wheres: mmmammmmnm is the Logical Block Address of the sector which 
could not be flagged. 
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NOTES 


ae Special care should be taken not to use 
any sector identified in the FLAG 
REJECTED message. In. some Operating 
System environments, the disc pack must 
be considered unusable if FLAG REJECTED 
is printed. 


be An invalid cylinder address causes an 
error message to be printed for a CE 
pack; no operation is performed. 


ce After flagging a sector on a disc to be 
used with OS/16 MT or OS/32 MT, the 
disc pack must be reinitialized, using 
the appropriate Disc Initialization 
utility, before attempting normal use 
of the disc pack. 


He5 Clearing the Disc Pack 


The CLEAR command allows the Customer Engineer to remove all 
recorded information from the sectors on a specified area of the 
disc rack. 


To write binary zeros to the Header, Gap2, Sync2, Data, and 
Normal and Format Mode LRCC field for each sector on the 
cylinders from LOCYL to HICYL, inclusively, enter the following 
commands 


CLEAR 


THE CLEAR COMMAND DESTROYS THE FORMAT 
FOR ALL SECTORS ON THE DESIGNATED AREA 
OF THE PACK. THIS OCCURS VERY QUICKLY. 
THE CLEAR COMMAND SHOULD NOT NORMALLY 
BE USED, EXCEPT BY THE CUSTOMER 
ENGINEER. 


CAUTION 


NOTES 


Ae Invalid cylinder addresses are bypassed 
for a CE packe 


be It it is desired to halt the CLEAR 
process, depress and hold the BREAK 
(BRK) key on the console I/O device. 
The process stops when the current 
cylinder is complete. 
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5- ERROR PROCEDURES 


5s. 1 Recoverable Errors 
If the SELCH, Disc Controller, or Disc Drive does not respond to 
the device address sent, the following message is output to the 
Console Device: 
[CEV DDD FALSE SYNC ** 
where: DDD is the device address. If this message is 
returned, check that the SELCH and DISCON options are 


correct; also check that all interfaces are fully 


seated. 


5e2 Irrecoverable Errors 
If a Machine Malfunction Interrupt is taken, the following 
message is output to the Console Device: 
ERROR OO0F3 
PSW PPPP LOC LLLL 
STATUS = SSSSSSSS 
where: F3 is the code for Machine Malfunction 
PPPP is the PSW status when error was detected. 
ILLL is the PSW location counter when the error was 
detected. 
SS555558 is the Machine Malfunction Status 
In the case of irrecoverable errors other than Machine 
Malfunction Interrupt, the following message is printed: 
FRROR OOFN 
FSW PPPP LCC LLLL 
where: FN is the code for the Irrecoverable Error detected, 


and other printout is as described above (see Addpedix F). 
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6. PROGRAMMING NOTES 


6.1 Formatting Times 


This program requires approximately 18 minutes to format a 10 Mb 
disc pack and approximately 11 minutes to format a 2.5 Mb disc 
packe 


A. 2 Formatting Algorithm 


A worst-case data haltword is copied into the entire sector, 
including Header, GAP2, SYNC2, Data, and Normal Mode LRCC fields. 

The sector is then "“Read-Checked" by doing a format-mode Read “= 
without the SELCH; no LRC error should result. The pattern is 

read. three times. On the third read, the SELCH is used, and the 

data read is tested for correctness. This operation is performed ae 
for the hexadecimal halfword patterns FOFO, DB6D, 6DB6, and B6DB. 

For each read, a single detected error may be tallied as a “soft" 
errore 


The sector is: then written with proper format (correct Header, 
GAP2, SYNC2, and Normal Mode LRCC fields); the Data field is 
zero-~filled. A Read~Check is then performed on the sector. Any 
detected error is tallied as a "hard" error. 


When all sectors in the cylinder have been tested, the individual 
tallies are checked. A sector with one "soft" error and no 
“hard” error results in a commentary messagee The user may later 
flag the sector manually, at his option. A sector with two or 


more "“soft™ errors, and any “hard“ error, is flagged defective, 
and a message is output. After a sector is flagged, the flag is 
tested. If the sector could not be flagged, a conspicious 


message is output. 


When this sequence is complete for all sectors in the cylinder, 
the next cylinder is selected, if so specified. 
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“APPENDIX A 
USER DEVICE DEFINITION 


ASCII INPUT/OUTPUT DEVICE SUPPORT 


The RO5 executive (ETPE RO5) of the program uses the concept of 
Console I/0 device and list device. The console I/0 device is an 
interactive device which is capable of logging messages and 
accepting commands and other user input. When the executive is 
accepting input from the user, or sending messages to the user, 
the console device is used. When the test program iS running, 
the list device is used for logging messages. 


IO HALFWORD CONTROL OF I/0 DEVICE SELECTION 


The list device and console device are specified to the Fxecutive 
by the contents of the halfword “IO" at ORIGIN1+X‘'10'° (normally 
X'OA10'). The interpretation of this data is detailed in Table 
1. The Executive allows only the identifiers shown and changes 
illegal identifiers to X‘01°. 


TABLE 1 INPUT/OUTPUT IDENTIFIERS 


0 | | 7 8 15 
10 [CONSOLE DEVICE IDENTIFIER LIST DEVICE IDENTIFIER 


CRT on PASLA/PALM X'O01° =- CRT on PASLA/PALM 
or COMM MUX or COMM MUX 
interface interface 


Device on Current X'02° - Device on Current 
Loop interface Loop interface 


Reserved. Changed X¥'03' - Line Printer on 
to. x01"... line Printer 
interface 


Carousel on PASLA/ X'O4* = Carousel on PASLA/ 
PALM or COMM MUX PALM or COMM MUX 
interface interface 


CRT on Micro-I/0 X¥°O05* = CRT on Micro-I1/0 
Bus interface Bus interface 
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APPENDIX A (Continued) 


T/O DEVICE ADDRESSES AND CHARACTERISTICS 


The device types implied by the values contained in the [0 
halfword are described in the following paragraphs. For each of 
the devices, including device type X‘'03°, termination of an 
output line results in a carriage return, line feed, and null 
character being output by the executive (X'OD', XK‘OA', X‘00'). 


Devices identified by X‘01° are assumed to be on ae full-duplex 
asynchronous RS-232-type interface with addresses X'010' and 
K°O11° for read and write sides, respectively. Examples of such 
interfaces are PASLA, PALM, and COMM MUX. The Exective programs 
these devices for highest clock rate, seven data bits, two stop 
bits, and even parity. If the terminal is set up differently, 
location CRT2ND must be modified accordingly. Line break status 
is assumed to be indicated by framing-error status, with BUSY not 
active, and a zero character in the receive buffer. Off-line 
status is assumed to be X"OC* (BUSY+EXAMINE STATUS). 


Devices identified by X‘02° are assumed to be on ae Teletype- 
compatible current loop interface with address xX‘002°. The 
Executive programs these devices for unblocked mode (Echoplex). 
Line break status is assumed to be indicated by framing-error 
status. Off-line status is assumed to be X'0O1°. (Device 
Unavailable). If this bit is set, other status bits are 
don*t-cares. 


The list device identified by X‘03" is assumed to be a line 
printer on a line printer interface with address X*062'. 
Off-Line status is assumed to be X‘'01° (Device Unavailable). if 
this hit is set, other status bits are don't-cares. 


Devices indicated by x'o4! are assumed to be attached as 
described for device type xX‘'O1', having the capability of 
transmitting DC4Y and DC2 transmission pause and resume requests. 
An example of such a device is the Perkin-Elmer Carousel 300 
terminal. 


Devices indicated by X‘'05" are assumed to be on a Micro-I/O bus 
interface with address X‘OCO°. These devices are programmed for 
Blocked mode (Full Duplex). Line break is assumed to be 
indicated by framing-error status which is not testable if a 
character is in the interface read buffer. Off-Line status is 
assumed to be X'O1' (Device unavailable). If this bit is set, 
other status bits are don‘t-cares. 
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APPENDIX A (Continued) 


We’ SELECTING DEVICES BEFORE STARTING EXECUTION 


The IO halfword, described above, controls which device 
identifiers are used when the program is started. The default 
data in this halfword is X'0Q101'. If this value does not 
indicate the desired type of I/0 device, of the types supportei, 
the data in the IO halfword may be modified before starting 
program execution. 


If the default device addresses are not the addresses of the 
devices configured in the system, the table of device addresses 
found in the source program adjacent to the IO halfword may be 
modified. There are two halfword entries used for each type 
device. The first is the read-side address, and the second is 

er the write-side address. Both these halfwords must be modified 
for any change required. If the device type has only one address 
(for example, a line printer), the device address must be placed 
in each of the two appropriate halfwords. The ROS Executive 
always uses the read side address to test Off-Line status. 
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APPENDIX B 
COMMAND/OPTION INPUT 


An asterisk (*) operator prompt is output to the console device 
to indicate that the program is waiting for user input. All 
option names must be typed in from the console, followed by a 
carriage return (CR) if there are no arguments or if default 
arguments are to be used. If arguments are required, the option 
name must be followed by a space, and then the desired argument 
Or arguments separated by commas. 


An invalid command/option name or option value causes a question 
mark (?) to be output, followed by a carriage return, line feed, 
and an asterisk prompt. If, during command/option input, a 
mistake is made, the hash mark (#) or a control X can be typed to 
delete the entire command line. A carriage return, line feed, 
and new prompt is output. The left arrow (<) can be typed to 
delete the previously typed character, or a string of characters 
can be deleted by typing a left arrow for each character to be 
deleted. The backspace character and delete characters are 
treated the same as a back arrow. 
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APPENDIX C 
OPTION VALUES 


Examine each option in the following list, and read each 
description. If a default value is specified, and is the value 
desired, no action is necessary. If a default value is not 
specified, or is not the desired value, then the option must be 
entered. See Appendix B for Command Input Structure. 

NOTE 


All Numeric input and printout is 
hexadecimal (base 16). 


DEFAULT 
OPTION | MANDATORY VALUE DESCRIPTION 


- a 


DISCON X*OOB6" 


; - 


Cption CR causes all options, with 
their current values, to be 
displayed on the console device. 
Option n causes the display to be 
cutput to the specified list device 
(see Appendix A). 


Defines Selector Channel Address 


Defines Disc Controller Address 


Defines which drives attached to the 
controller are to be used. Any © 
combination of 0-7 may be selected. 
Drives 0-3 are the removable ; 
Platters and drives 4-7 are the 
corresponding fixed platters. For 
example, to select drives O and 1, 
enter the following command: 


*Drive 0,1 CR 


PACTYF X*O001' Identifies the type of pack being 
formatted. Type X‘CEOn' designates 
a Customer Engineer pack. Type 
X'O00n* designates 4 user pack. 


The suffix digits are defined below. 


O = 2.5 Mb Drive 
(max. cyl. address = X‘'CA‘) 
1 =10 Mb Drive 

‘(maxe cyl. address 


X*°197'") 
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LOCYL 
HICYL 


FMTSEC 


FORMAT 


CLEAR 


OPTION | MANDATORY 


X 
Xx 


APPENDIX C (Continued) 


DEFAULT 
VALUE 


X*FFFF 


X°FFFF* 


DESCRIPTION 


Establishes the low cylinder address 


for 


the formatting process. LOCYL 


must not be greater than the HICYL 


option, nor greater than the number 
of cylinders implied by the PACTYP 
option. 


Establishes the high cylinder 
address for the formatting process. 
HICYL must not be less than the 
LOCYL option, and must not be 


greater than the number of cylinders 


implied by the PACTYP option. 


Specifies whether defective areas 
of the pack are to be flagged by 
sector, or whether all sectors in 


the 


0 


1 


track are to be flagged. 
FLAG ALL SECTORS IN THE TRACK 


FLAG DEFECTIVE SECTORS ONLY 


Causes the Disc Pack to be formatted 
according to the options selected. 


Causes all sectors from LOCYL to 
HICYL inclusively to be filled 

with binary ZEROS, including Header, 
Data and LRC fields. 


Causes only the specified 


sector to be flagged defec- 
tive, if FMTSEC = 1. Valid 
commands in this case are: 


FLAG mmammmmmm 


FLAG TTT HH KK 
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APPENDIX C (Continued) 


wa’ DEFAULT 
OPTION | MANDATORY | VALUE 


lil 
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DESCRIPTION 


Causes the track in which the 
specified sector lies to be 
flagged defective, if FMTISEC = 0. 
Valid commands in this case are: 


FLAG mmmammma 


FLAG TTT HH 

wheres 
nmmmmmnm is the sector's 
Logical Block Address 
TTT is the Cylinder Address 
HH is the Head Address 
KK is the Sector Address 
on the track 
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a. APPENDIX D 
EXPECTED PRINTOUT FOR 10 Mb DISC DRIVES 


COMMON DISC FORMATTER 06-251R00 
*OPTICN 

DRIVE 

DISCON OOB6 

SELCH OOFO 

PACTYP 0001 

FMTSEC 0001 

LOCYL -FFFF 

HICYL FFFF 


*LOCYL O (Default Formatting Procedure) 
*HICYL 197 (or X°CA* for 2.5 Mb disc drives) 
*DRIVE 0O 

*FORMAT 


DRIVE 0 SELECTED 
* . (Formatting Complete) 


The sequence above causes the Disc Pack mounted on Drive 0 to be 
formatted. More than one Drive may be specified. For example, 
to format the packs on Drives 0, 1, 2 and 3: 


*LOCYL O 

*HICYL 197 (or X'CA' for 2.5 Mb disc drives) 
*DRIVE 0,1,2,3 . 

*FORMAT 

DRIVE O SELECTED 

DRIVE 1 SELECTED 

DRIVE 2 SELECTED 

DRIVE 3 SELECTED 

* (Formatting complete) 


With the Option Table values shown, if a “hard" sector error is 
detected for the pack mounted on Drive 1, a message is printed in 
the format shown below. (For this example, the error is shown to 
have occurred on Cylinder 147, Head 01, Sector OC, of the pack 
mounted on Drive 1). 


* FORMAT 

DRIVE 0 SELECTED 

DRIVE 1 SELECTED 

DEF SEC FLAGGED 3D74 147 01 OC 
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APPENDIX E 
ERROR TABLE 


Irrecoverable errors result in the 
described below: 


ERROR OOFN 

CEV DDD STA SS 

PSW PPPP LOC LLLL 
Or 

ERROR OOFN 

FSW PPPP LCC LLUL 
Or 

ERROR OOFN 


FSW PPPP LCC LLLL 


printing 


of the messages 


STATUS = SSSS 


where: OOF1 
O0OF2 

OOF3 

OOFY 

~—OOFS5 


OOF6 
OOF7 
OOF8 
OOF9 
DDD 
SES 
PPPP 
LLLL 
SSSS 


Hom WW 


oun db ou ow wb ub ul 


Arithmetic Fault Interrupt 

Tllegal Instruction Interrupt 

Machine Malfunction Interrupt 

Spurious Device Interrupt 

32-Bit Relocation/Protection Interrupt, or 
16-Bit Floating Point Divide Interrupt 

Device Interrupt Level Error 

Data Format Fault Interrupt 

System Queue Service Interrupt 

Supervisor Call Interrupt 

Device address returned when the interrupt occurred 
Status of the interrupting device 

PSW status when the interrupt occurred 

PSW Location Counter when the interrupt occurred. 
Machine Malfunction Status for the 3200 

family of processors, this is the contents 

of the Machine Malfunction Status word at 
X'O040". For all other processors, this is the 
old PSW status when the machine malfunction 
interrupt occurred. Refer to the appropriate 
processor user's manual for further details. 
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APPENDIX F 
MESSAGE SUMMARY 


Messages which may be output during execution of this program are 
summarized below. For additional information, refer to Program 
Execution (Section 4). 


12 INVALID XXXXXX OPTION 


This message is printed after the FORMAT, FLAG or CLEAR command 
is entered, if the indicated option has not been entered, or is 
incorrect. 


2- WHICH DRIVE? 


This message is printed after the FLAG or CLEAR command is 
entered, if the Drive option has not been entered. The user must 
enter the DRIVE option, specifying the desire Drive only, then 
re-enter the previous command (FLAG or CLEAR). 


3- ILLEGAL CYLINDER ADDRESS XXX - CE PACK 


This message is printed after the FLAG command is entered, if the 
user attempts to flag a sector or track within an "invalid" area 
on a Customer Engineer pack. The message is also printed if the 
FORMAT or CLEAR command is entered, and the LOCYL or HICYL option 
lies within such an area. 


4. DEV DDD FALSE SYNC ** 


This message is printed after the FORMAT, FLAG or CLEAR command 
is entered, if the SELCH, Controller, or Disc Drive does not 
respond to address DDD. The user should verify that the SELCH 
and DISCON options are correct. 


NOTE 


If the SELCH and DISCON options are 
correct, Hardware Maintenance personnel 
should be requested to check that the 
interfaces and cable connectors are 
firmly seated, and that the systen 
RACKO/TACKO chain is not broken. 
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5. DRIVE Xs: WRITE PROTECTED 


This message is printed when the indicated Drive returns Write 
Protect status. The user should use the Drive's operator panel 
to turn the write only or protect indicator OFF. The previous 
command should then be re-entered. 


6. DRIVE X: OFF LINE 


This message is printed when the indicated Drive returns status 
X*O9'. The user should check that the correct DRIVE option has 
been entered. If the DRIVE option is correct, verify that a disc 
pack has been properly mounted, that the pack access door is 
latched, and that the spindle motor has been started. 


7. DRIVE Xs: UNRECOVERABLE ERROR - STATUS YY 


This message is printed when the indicated Drive returns Unsafe, 
Write Check, Illegal Address or Seek Incomplete status which 
cannot be cleared by normal techniques. Power should be removed 
from the Drive for several seconds, then restored. 


8. SCFT ERROR mmmmmmmm TIT HH KK 


This message is printed if a single, recoverable sector error is 
detected while formatting. The sector in error is identified by 
Logical Block Address, and by Cylinder, Head, and Sector Address. 


9. DEF SEC FLAGGED mmmmmmmm TIT HH KK 


This message is printed when a defective sector is flagged, if 
the FMTSEC option is ONE. The Sector is identified by Logical 
Block Address, and by Cylinder, Head, and Sector Address. 


10.6 CEF TRK FLAGGED mmmmmmmm TIT HH 


This message is printed when a defective sector is flagged, if 
the FMTSEC option is ZERO. All Sectors on the indicated track 
are flagged; the message identifies the Logical Block Address of 
Sector 0 of the indicated head and cylinder. 


11. FLAG REJECTED mmmmmmmm TTT HH KK < --- X 
This message is printed when an attempt is made to flag a sector 
as defective, and the attempt fails. The Logical Block Address 


and the Cylinder, Head, and Sector Address of the sector 
rejecting the flag, are displayed. 
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NOTE 


Special care should be taken not to use 
any sector identified in the FLAG 
REJECTED message. In some Operating 
System environments, the disc pack must 
be considered unusable if FLAG REJECTED 
is printed. . 


12. DRIVE X SELECTED 


This message is printed following the FORMAT, FLAG, or CLEAR 
command, and identifies the Drive in use. The message is also 
printed whenever a new Drive is selected, if multiple-Drive 
formatting is specified. 


13. REDUNDANT SEEK ERROR 


This message is printed after the disc pack on the current 
selected disc drive has been formatted, if the final Read-Check 
for Head 0, Sector 0 of all cylinders in the range LOCYL:HWICYL 
produces any Header Error status not accompanied by Defective 
Sector status. This indicates a hardware problem; proper format 
of the disc pack is not guaranteed. 


14. ILLEGAL PACK TYPE ENTERED 


This message is printed if the PACTYP option was entered 
incorrectly. 


15¢ BREAK TERMINATION 
This message is printed when the FORMAT, FLAG, or CLEAR operation 


is aborted due to the user‘s depressing the BREAK key on the 
console I/O device. 
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APPENDIX G 
RELATED DOCUMENTS 


Formatter Program Listing 

Formatter Program Paper Tape 

2e5 and 10 Megabyte Removable 
Cartridge Disc Programming Manual 

Common Disc Test Program Description 
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MT PROG COMMON 2.5 AND 10 MB FORMATTER 
-CROSS 
NORX3 
TARGT 16 
WIOTH 120 


% 


COMMON 2.5 AND 10 MB FORMATTER 06-251R00 
COPYRIGHT PERKIN-ELMER. SEPTEMBER, 1979 


PROGRAM USES THE COMMON INSTRUCTION SET 


THIS PROGRAM FORMATS THE PE 2.5 AND 10 MB DISC PACKS, 
FIXED@LENGTHs SEGUENTIAL SECTORING IS PERFORMED 

USING AN INTERLEAVED-SECTOR ACCESS TECHNIQUE FOR FASTER THROUGHPUT 
A SURFACE EVALUATION IS PERFORMED FOR UP TO a DISC PACKS? 
MOUNTED ON AS MANY ORIVES OF THE SAME TYPE. FAULTY SECTORS ARE 
FLAGGED AS DEFECTIVE: THE FLAG IS TESTED FOR EACH FAULTY SECTOR. 
THE DISC PACK(S) MAY BE FORMATTED ON A DEFECTIVE SECTOR BASIS 

FOR ANY DETECTED SECTOR ERRORS, OR MAY BE FORMATTED ON A DEFECTIVE 
TRACK BASIS, WHERE EqCH SECTOR IN ANY TRACK WITH A DEFECTIVE 
SECTOR HAS ALL SECTORS IN THAT TRACK FLAGGED AS DEFECTIVE. 

IN AUDITION, THE WRITE PROTECT SIT IN THE SECTOR HEADERS MAY BE 
SET. IF DESTRED. 


THIS PROGRAM PERMITS MANUAL FLAGGING OF DEFECTIVE SECTORS» BY 
ENTRY OF THE SECTOR'S LOGICAL BLOCK AUDRESS. OR BY ENTRY OF THE 
CYLINDERs HEAD, AND SECTOR ADDRESSES. IN ADDITIONe THE PROGRAM 
ALLOWS THE CUSTOMER ENGINEER TO ERASE ALL ACCESSIBLE AREAS 
WITHIN A RANGE OF CONTIGUOUS CYLINDERS, CE PACK CYLINDER ADDRESS 
CONVENTIONS aRE OBSERVED. 

DRIVE IDENTIFIERS 00.01+02+03 SPECIFY THE REMOVABLE 

PACKS IN THE RESPECTIVE DRIVES, 

DRIVE IDENTIFIERS 04,05+06207 SPECIFY THE FIXED DISCS IN THE 
CORRESPONDING DRIVES, 


THE PROGRAM REQUIRES A 7/16 BASIC+ 7/32 8/325 OR EQUIVALENT 
PROCESSOR: WITH MINIMUM 16K BYTES OF MEMORY, OPTIONS AND COMMANDS 
ARE TO BE ENTERED VIn A CONSOLE 170 DEVICE, 


THE 06-2¢;M17R00 TAPE IS AN ABSOLUTE TAPE WITH FRONT-END BOOT LOADER, 


MBFOO010 
M5FO00020 
MBFOO030 
MBFOU0KGO 
MBFO0050 
MBFOO060 
MBF 00070 
MBFOOOS0 
MBFOO0090 
MBFOO100 
mBFO0110 
MBFOU120 
MBFO00130 
MBFOU140 
MBFO0150 
MBFOU1E0 
MBFO0G176 
MBFO0280 
MBFO0190 
MBFO02Z00 
MBFOO0210 
MBF 00220 
MBFO0230 
MBFO024G0 
MBFO0259 
MBFO0260 
MBFOO2TO 
MBFO0280 
MBFOO290 
MBFO00300 
MBF00310 
“BF00520 
MBFOO0S30 
MBFOO340 


MBFOOSSO | 


MBFO03S60 


-MBFO0570 


MBFOOS80 
MBFOUS9O 
mBF 00400 
MBFOO410 
MBF 00420 
MBFO0430 


COMMON 2.5 AND 10 M8 FORMATTER es PAGE 2 41337309 01711780 
EXEC = ETPE RO5P0 . 


45 SOUEZ 2 ; maFOO4S0 


46 ERSQZ MBFOU460 

47 NLSTC MBFO0470 

4S ; MBF004%80 

49 $STRUC1 STRUC OPTION TABLE STRUCTURE mBFO0490 

voou 50 soOPTNAME OS 6 ASCII OPTION NAME MBEUOSOO 
0006 51 $cKROUT OS 2 Z( CHECK ROUTINE) MBFUUS10O 
0008 52 $vALUL os 2 16eBIT VALUE MBFOOS20 
QOOA 53 $VyALU2 os 2 SPARE MBF00530 
gooc 54 ENOS ; MBFO0S5S40 
55 «* MBFOOSSO 

a0g0 0050 56 $BUFLEN E9U 89 I7Q BUFFER LENGTH MBFO0S60 
57 * “8F00570 

58 * MBF00580 

59 * CONDITIONAL ASSEMBLY PARAMETERS TO FOLLOW mBFOUSSO 

60 x MBF 00600 

61 * IN ALL CASES» O EQUALS DELETE MBF 00610 

62 * 1 EQUALS INCLUDE MBF O0620 

645 * wo MBF00630 

64 =o FOR $CLOCK. FOLLOWING TIMERS INCLUNEN mMmBF00640 

65 * _ 1 EQUALS INCLUDE SOFTWARE MBF 00650 

66 ¥* 2 EQUALS INCLUDE HARDWARE m6F 00660 

47 * ' 3 EQUALS INCLUDE BOTH MBF 00670 

68 * TIMER LaBEL IS "TIMER® FOR SOFTWARE AND mBF00680 

69 * HARDWARE. EXCEPT WHEN @OTH ARE INCLUOED, MBF 00690 

70 * THEN LABELS ARE "STIMER® AND “HTIMER" “BF 00700 

71 RESPECTIVELY. MBFO0710 

72 * MBFOU720 

0000 auto 73 $RSBIN eau Q MBFO00730 
ogud 0000 74 $DECTAB Eau 0 MBFO0740 
oov0 0000 75 $DECHEX EQu 0) MBFOOTS5O 
0600 0000 76 $pECaAsc Eau 0 MBFOOTEO 
0000 0000 77 $KBINT Eau 0 MBEOOTTO 
0000 ovun1L 78 $CLOCK £au 1 MBF 00780 
0000 0000 79 $pISPLAY Eau 0 MBFO0790 
aguoo0 0000 80 $BUFIO eau 0 mSFO00800 
81 * MBF00810 

0000 0000 82 RO £QU 0 MSF 00620 
0000 0001 83 RI EQU 1 MBFO00830 
o0uood 0002 B4 R2 EQU 2 MBF 00840 
oo0cg 9003 85 R3 Eau 3 MBFO08S50 
vouo ga04 86 R4 EQu 4 MBF 00860 
e000 90U5 87 RS Eau 5 MBFO0870 
0000 GO06 8B RE Eau 6 meBFo08e0 
0000 0007 89 R? EQu 7 MBF 00890 
0000 ovb8 90 «RA EQu 8 MBFO0900 
e000 ou09 91 RY eau 9 MBF OU910 
occGg 000A 92 R10 Eau 10 MBFO0920 
00-0 0008 93 Ril €QuU 11 MBFO0930 
0000 000C 94 R12 Eau 12 4BFCO340 
“9000 0000 $5 RU £QU 13 MBFOU950 
gvoo oO0E 96 R14 Eau 14 MBFOO0%60 
0000 O00F 97 R15 eeu 15 MBF OOSTO 


COMMUN 2.5 AND 10 MB FORMATTER 


EXEC - ETPE RO5PO 


98 * 

99 -* BOOTLOADER 

1u0) 6 6(* 
O000R 101 ORG 
goso 2421 102 LIs 
0082 2303 103 BS 
vOBY 2b00 104 oc 
U086 2068 105 oc 
0088 C810 0a00 106 BOOT LDAI 
008C C830 24DC 107 LDAY 
0090 4030 0022 168 STH 
0094 e7Tat 109 sts 
0096 C860 OOFF 110 MN LHI 
009A 0340 0078 111 LB 
Q09E DE40 9079 112 oc 
O0gA2] 9045 113 LEADER SSR 
O00 AY 2091 114 BTBS 
OOGA6 9B45 115 RDR 
00A8 0855 116 LDAR 
OOAA 2234 117 82S 
3OAC 0251 9000 118 LOAD STs 
00B0 0351 9000 119 LB 
0084 0765 120 XAR 
0086 3481 121 EXBR 
00B8 9826 122 WHR 
QOBA 9045 ; 123 SSR 
90sc 2091 124 BTBS 
COBE SB45 125 ROR 
ooco C110 OOAC 126 BXLE 
goc4 9486 127 EXBR 
oncé 9828 128 WHR 
00ce 2478 129 LDWT LIS 
COCA 917C 130 SLLS 
90CC 9557 131 EPSR 
OOcE 2203 132 BS 


wlTH CHKSUM 


x*g0° 
R2el 
BOOT 


11337209 01711/89 


Z(PSWSAVE+X°FF*ax*FFOO") S32/3200 PPF PSW SAVE PTR 
Z2(PSWSAVE+X*FF*&X*FFO0"+B8) S32/3200 PPF REGSAVE PTR 


R1,ORIGINI 


R3sLNZ841 
R3eX'22e 
R3,1 


R6«X*OOFF? 


R4eX*7S8e 
RG .X°*TSe 
R4,R5 
Gal 
R4eR5 
R5eR5 
LEADER 
R5,0¢R1) 


Rl = ADR( FIRST BYTE OF TEST PROG 
R3 = ADR( LAST NON#ZERO BYTE ) 
$16 REGISTER SAVE POINTER 

R6& = CHKSUM BYTE = X*MN* 

INPUT DEV ADR 

bu,BSY 


IGNORE LEADER 

STORE 1ST NON-ZERO g SUBSEQUENT By 
RELOAD DATA BYTE TO 

GENERATE CHKSUM 

DISPLAY MEMORY ADDRESS 

DU,BSY 

LOAD TILL LAST BYTE 

FINAL CHKSUM 


R7 = x*eooot 
HALT PROCESSOR, 


MBF00980 
MBFOO990 
MBFO01000 
MBFO01U10 
MBFU1LC20 
MBFO1030 
MBFULUYGO 
MBFO019050 
mBe01960 
MBFO1070 
MBF01080 
MBFO1090 
MBFO1100 
MBFO1110 
MBFO1120 
MBFO01130 
MBFO1140 
4BFO01150 
MGF01160 
MBFO1170 
MBFO01180 
MBFO1190 
mBFO1200 
mBF01210 
MBFO1220 
MBFO1230 
MBFO1240 
mBFO01250 
M8F 01260 
MBFO1270 
MBFO1280 
MBFO1290 
MBFO1300 
MBF01310 
MBFO01320 
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EXEC - ETPE ROSPO 


00D0 134 ORS x* aug? MEF O1340 
0aa0 %#300 OASE 135 ORIGIN1 2B START START HERE FOR 32eBIT PROCESSOR MBFO1350 
OA04 136 IF2 Aoc<-2 MBFO1360 
OA04 4300 OASE 137 ORIGIN2 8B START START HERE FOR 164BI1T PROCESSOR MBFO1370 
gAo8s 43u0 OAT2 138 ORIGINS 2B START3 SPECIAL 32-8IT PROCESSOR START MBFO1380 
Gadc 4300 OATY4 139 ORIGING 8B START SPECIAL 16-8IT PROCESSOR START 46F 01390 
140 ELSE MBF01400 

144 ENOC MBF O1440 

145 * mBFO01L450 

oy ee MBF 01460 

147, + TEST CONSTANTS * MBF01470 

148 * MBF01480 

ooco 0006 149 $MAXIO Eau 6 > MAX VALID IDENTIFIER MBFO1490 

0A10 0101 150 I0 oc x*0101" T/O DEVICE(S) IDENTIFIER MBFY1S00 
151 * BF 01510 

0A12 v010 152 PASLADR OC x*oulor PALSA/PALM REAO ADDRESS MBF01S20 
gA14 0011 153 oc X*o011¢ PASLA/PALM WRITE ADORESS MBF 01530 
JA1L6 aousS 154 CLIFAOR oOC x*gadoe CURRENT LOOP INTERFACE REAU ADORES MBF01D40 
VA1a ouu2 155 9c x*gao0gze CURRENT LOOP INTERFaCe WRITE ADDRE MBF 01550 
JALA Ou62 156 tpaodrR oc x'00626 DUMMY FOR LINE PRINTER mBFOLS60 
QAIC 3062 157 oc x*0062° WRITE AODRESS MBFO1L5S70 
OALE vd1a 158 C300ADR OC x*goloe CAROUSEL/PASLA READ ADDRESS MBFO1580 
va20 UG11 159 pc x*odi11¢ CAROUSEL/PASLA WRITE ADORESS MBF9L990 
0A22 udco 160 MICROBUS DC x'oocor MICROBUS READ ADORESS MBFY1600 
OA24 OuCO 161 pc x*oocor MICROBUS WRITE ADDRESS MBFO1610 
0A26 vuUO 162 DCX 0 PROVISION FOR SPECIAL DEVICE (READ MBF G1630 
0A28 uuoa 163 ocx 0 WRITE ADDRESS MBF U1630 
164 * MBFO01640 

165 * I0 = 0101 FOR CRT ON PASLA “BF01650 

166 * 0202 FOR TELETYPEe CAROUSEL 15730 MBFO01660 

167 * XX03 FOR LINE PRINTER MBF 01670 

16a «* 0404 FOR CAROUSEL 300 MBF O1680 

169 * 0505 FOR MICROBUS MBF01690 

170) MBFO1L7O00 

TTL ke eee ew ne ee eee ee ee eee cme wee nnn wenn were 4BF01710 

172 +* §ETPE I0 COMMANDS MBF01720 

173 * MBFO1730 

OA24a agvo 174 CONRADR OCX 0 CONSOLE DEVICE REAO ADDRESS MBFO1740 
0aec vdug 175 CoNwWADR ocx 0 CONSOLE DEVICE WRITE aDORESS MBF 01750 
176 * MBF01760 

OAZE vuULO 177 CONRD DCX v CONSOLE READ/WRITE COMMANDS MBFO1LT7TO 
0060 OA2F 178 CONWRT EQU CONRD+1 MBFO1780 

0430 vouo 179 CON2ND pcx 0 MBF01790 
o0ud0 0A31 180 cCONENRD EQU CON2ND41 MBFO1800 
0A32 aG6uo0 181 CoNnCmOd ocx 0 DUMMY HW AS POINTER MBFO1810 
OA34 A1A3 182 CRTRD ocx A1A3 FOR CRT MBFO01820 
0A36 EE61 183 CRT2N0 OCcx EF61 MBF01830 
OA38 £498 184 CLIFRD ocx E498 * CURRENT LOOP INTERFACE MBFO1L840 
VA3ZA uuud 185 CLIF2NN ocx cooU MBFU1850 
OASC 0080 186 LPWRT ocx 0080 * LINE PRINTER MBEG1660 
OAZE 0000 187 pcx 0 DUMMY FOR LP MBF01870 
oAGo ALAS 188 CARRO D0CX A1A3 : * CAROUSEL 300 MBFO1880 
oA42 F061 169 CAR2NO nex FO61 MBFO1690 
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EXEC - ETPE RO5P0 


DAHY 
YVA4E 


OA4S8 
GAYS 
OAA 
OA4B 
DAYC 
0A4D 
OAGE 
OAUE 
0A50 
0A52 


“Ua54 


OAS6 
0A58 
OASA 
VA5C 


OASE 
QA62 
DASE 
OAGA 
QAGE 
OA70 


OA7T2 
OA7T4 
UVAT4 


OA76 
OATA 
DATE 
OA82 


OABG 
JABA 
OABE 
0490 
OA94 
0498 
OASC 
OAAD 
OAA2 
VAAG 
OAAS 
GAAC 


8202 
vOuU0 


oA52 
OAT6 
0034 
0030 


8U00 
160C 
0010 
15F8 


11B6 
1368 


17C8 
1608 
1036 
10402 


1042 


1616 
oD6E 


190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
225 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
ean 
241 
242 


MREADC pcx 8202 * MICROBUS 
DCX 0 DUMMY Hw FoR MICROBUS 
* 
Kw Per eeP ene" ee were eee ewes ewe wee Beaman ewe 2 Zeer ease we eB ee eestor ew ete 
CONRQ@2S pB 0 CONSOLE REQUEST To SEND CMD 
crtTRe2s 08 xt23° FOR CRT 
o8 i] DUMMY BYTE FOR CLI 
DB 0 * DUMMY BYTE FOR LP 
CARRQ@2S 0B X23! * CAROUSEL 300 
DB 0 * DUMMY BYTE FOR MICROBUS 
DB * (ALIGN ON HW BOUNDRY) 
pcx 0 RESERVED 
Psw OCX 30Fr0 PSwW YSED IN PROGRAM 
PsW2 DCX 30F0 PSw USED IN EXEC 
psws pcx 70F90 PSW USED IN INTERRUPT TESTS 
ocx 8) RESERVED 
ocx 6 RESERVED 
STIMVAL DCX TFFF TIMEOUT CONSTANT 
$CON DCX 8800 BREAKPOINT INSTRUCTION 
* se wZres ee Fwae@eaa 2 e282 est enmwa sean 
* 
START LH R14+PSW2 NEW PSW FOR ILLEGAL INTERRUPT 
LDOAI R15¢STARTA AND NEW LOC 
ST R14eX*3aye FOR SERIES 16 
st R14eXt3gQ? FOR SERIES 32 
pcx 0 TAKE AN ILLEGAL INSTRUCTION INT 
BS * HALT IF II NOT TAKEN 
* 
STARTS 8 STARTA INSERT SPECIAL ROUTINE HERE 
IFZ ADC?2 
START4 B STARTA INSERT SPECIAL ROUTINE HERE 
ENDC 
STARTA LHI ROeX*S8000r 
STH RO-eISITERR FORCE TITLE PRINT 
SRL R0,16 REGISTER PAIR SHIFTED, SERIES 16 
STH ROwgMODs2 SIGN EXTENSIONe SERIES 32, 
* 
BAL R14,STCON SET UP CONSOLE 
BAL R15eLCORE SET UP LOW CORE 
LIS RO.O0 
STH ROsNOMSG+S$VALU1 FORCE *NOMSG 0O* AT START 
STH RO,»SBRKELG NO BREAK KEY YET 
BAL R15+CRLE 
BAL R15+SPRINT PRINT TEST PROGRAM TITLE 
DAC TITLE 
BAL R15e9SPRINT 
DAC MSG1 
LH R1iS5+SwaAsdu WAS DEVICE SEEN Dy ? 
BNZ HALTS PRINT TOTAL, TOTERR 
* 
* F 
«x KEYBOARD INPUT ROUTINE 
x 
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MBFO1L900 
MBF01910 
MBFO2920 
MBFO1930 
MBFO1940 
mBF01950 
MBFO1960 
MBF 01970 
MBFO1L980 
MBFO1990 
MBFO02Z000 
aBru2ui0 
MBF V2020 
MBF 92030 
HBF LS04O 
MBF USU5O 
MBF O2060 
MBFO2070 
MBFU20g0 
mBFO2090 
MBFO2100 
MBFO2110 
MBFO02120 
MBF02130 
MBFO2140 
MBFU2Z150 
MBFU2Z160 
MBFO2170 
MBF 02180 
MBFO2190 
mBFO2200 
MBFO2Z210 
MBFU2Z20 
MBF UZ230 
MBFO2240 
MBFO2250 
MBFO2260 
MBFO02270 
MBFOC2B0 
MBF 02290 
MBFYU2300 
MBFO2310 
MBFO2520 
MBFO23S30 
MBF 02540 
msF02550 
MBFO2560 
468F 02370 
MBF 02560 
4BF02590 
MBFO2Z400 
mBF 024910 
aBF 02420 


COMMON 2,5 ANDO 10 MB FORMATTER 
EXEC - ETPE RGSPO 


QABO 
NAB4 
0ABS8 
OABC 
oACO 
oAc2 
QAC6 
OACA 
OACE 
oA00 
dAD4 


0uG0 
41FO 
41F0O 
4820 
4VU20 
9512 
41FO 
0340 
41F0 
2544 
41FO 
41FO 


cs8co 
C610 
261C 
2430 
4851 
021C 
O8o] 
D343 
0356 
2631 
cs550 
233A 
0545 
203F 
2661 
C530 
2080 
0343 
2631 
48F1 
GUFO 
c510 
4380 
C510 
4330 
C510 
4330 
C510 
4330 


c540 
G23C 
41E0 
274) 


OABO 
1320 
1036 
0AS2 
160C 


1320 
1608 
10D2 


luG2 
1138 


123A 
16F0 


ouod 


2Cac 
0000 


0020 


0006 
2CAC 


0006 
1870 
1774 
oC7E 
1750 
oBDb6 
175C 
QASC 
16FC 
0B54 


0020 


OF 3E 


OPTIN 


OPTINI 


PAGE 


* 
RiS5«SETKB 
Ri5sCRLE 
R2.PSwWw2 
R2eISITERR 
R1,R2 
R15+SETKB 
R4GeANSG 
R15+*¢OUTCHR 
R4_ql 
R15eOUTCHR 
R15+¢SREA0 


* COMMAND DECODE 


sLOQK 


S$LOOK.9 
S$LOOK el 


S$LOOK.2 


$LOOK.S 


* 


R12sQUESTN 
R1,OPT-sSTRUCL 
R1-eSSTRUC1 
R3,0 

R5-.00R1) 

R12 

R6eR1 
R&eSINBUF (RS) 
R501 %6) 

R3,1 

R5,C? ¢ 
$LOOK,3 
R4eRS 

S$LOOK,.0 

R6el 
R3,.SCKROUT 
S$LOCK,.2 
R4,S$INBYF(RS) 
R3e1 
R15+¢SCKROUT(R1) 
R1i5eTESTS 
R1.FORMAT 
SRUNIT 
R1,OPTION 
SOPTPRT 
R1,.CON 

SCON 

R1,TEST 
S$TESTOP 
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ESTABLISH CONSOLE 


SPEC*D AS x*30F0°* 

FORCE EXEC MESSAGE PRINT 
NO INT, REG SET 15 
ESTABLISH CONSOLE 

OUTPUT AN * TO INOICATE 
COMMANO MODE ESTABLISHEO 
X°FFEe 


GET INPUT RECORD 


GLOBAL ERROR ROUTINE 

TO START AT OPTION TABLE 

ADVANCE TO NEXT TABLE ENTRY 
CLEAR BUFFER INDEX 

ENO OF TABLE ? 

IF MINUS. THEN NO MATCH => ERROR, 
START OF OPTION ENTRY 


“GET INPUT BYTE 


GET OPTION NAME BYTE 
ADVANCE TO NEXT BYTE 

OPTION NAME SPACE IN TABLE ? 
BRANCH: YES, 

INPUT» OPTION BYTES MATCH 7? 
BRANCH: NO, 

INDEX OPTION POINTER 

WHOLE OPTION NAME MATCHED ? 
BRANCH: NOT YET. 

GET BYTE FOLLOWING OPTION 
INCREMENT BUFFER POINTER 

‘ 06-173F02 

06=173F02 

06-173F02 

06+173F02 

06-173F02 

e 06-173F02 

*CON® CMD 7? 

BRANCH: YES. 

*TEST* CMD ? 

BRANCH: YES, 


* TO PROCESS COMMANDS WHICH MUST HAVE HEXADECIMAL INPUT VALUE 


* 
$LOOK,9 


CLHI 
BNER 
BAL 
SIS 


RG,C* ¢ 
R12 
R14.sOPTVAL 
R4.X*Opr 


OPTION FOLLOWED BY SPacE ? 
IF NOs ERROR, 

GET OPTION VALUE IN Re 
TERMINATED BY CR ? 


MBF O24%3C 
MBF U2%aO 
MBFO24%S0 
MBFO2%60 
MBFO2%70 
MOFO2%B80 
4BFO02%90 
4BFU2500 
“BF 02510 
MBFO2S20 
MBFO2530 
MBFO2Sa0 
MBE O2950 
MBF02560 
MBFO2STO 
MBFO2580 
MBFOLSSO 
MBFU2Z600 
MBF UZE10 
MBFO2620 
MBF02630 
MBFO2Z640 
MBFO2650 
MBFO2660 
MBFO2670 
MBF O2Z686 
MBFO2ZE90 
“BFO02700 
4BF02710 
MBFO2720 
MBFO2730 
MBFO2TSO 
MBFO02750 
4BFO02760 
MBFO2770 
MBFO2760 
MBFOSTS9O 
HBF U2600 
MBF 02810 
MBF02820 
M6F 02830 
ase o28ao 
MBFO02850 
MBFO2860 
MBFO2870 
MBF C2880 
MBFO2890 
MBFO23900 
SBF02910 
MRF OS3920 
MBFO2Z930 
MBFO2940 
MBF O2S50 


COMMON 2,5 AND 10 MB FORMATTER 


EXEC - ETPE R05P0 


OB42 
0B44 
vB48 
OB4A 
OB4C 
vB50 


0B54 
6858 
OB5C 
0860 
0B62 
UB66 
OB6A 
uB6C 
OB6E 


0870 
OB74 
0878 
OB7A 
OB7C 
OBTE 
ORB? 
0884 
O0BB6 
0888 
uBBA 
988C 
OBBE 
0890 
0B94 
0B98 
OB9A 
0B9E 
oBA2 


OBAG6 
OBAA 
OBAC 


UBAE 
0BB2 
0884 
0683 
oBBc 
aBCO 
oBcy 


023C 
4HBE1 
2332 
O1FE 
#06) 
4300 


4899 
4886 
B350 
2740 
4330 
cCB4o0 
023C 
2490 
2480 


41E0 
4969 
022C 
24E8 
S1EC 
CCE 
276F 
2123 
N69E 
232 
G656E 
2t4pD 
23556 
CB40 
4339 
030C 
4090 
4080 
4300 


C360 
033F 
030C 


C360 
023Cc¢ 
C850 
4uDFO 
41FO 
48Foa 
O30F 


0006 


0008 
OARS 


1874 
1876 
2CBi 


OBIA 
0013 


OFZ3E 
189E 


6000 


OO1F 
uB70 


1704 
1706 
OABS 


FFFE 


FFFE 


1480 
1628 
105A 
1628 


$LOOK.6 


* 
x 


STESTOP 


*x 
STSTOP.l1 


STSTOPe3 
STSTOP.4 


STSTOP.5S 


x OPTION 


* 
ZERONE 


* 
ZERONEL 


CHECK 


THI 
BZR 
BR 


THI 
BNZR 
LOAI 
STA 
BAL 
LDA 
BR 


( 


PAGE 


Ri2 
R14eS$CKROUT(R1) 
$LOOK.6 

R15eR14 
R6e$VALUL(R1) 
OPTINA 


R9sDEFTESTS 
R8,DEFTESTS+2 
R5-SINBUFS+5 
R4.X*OD9 
STSTOP,.5 
RG,C* *ox'OD? 
R12 

R9,0 

R&.0 


R14+OPTVAL 
R6eMAXTST 

R12 

R148 

R14e12 
R14e¢O0(RE) 
R6,15 

STSTOP,3 
R9Y,»R14 
STSTOP,4 
R&,R14 
R4eX*OD8 
STSTOP,5 
R4eC%e *2x'0D? 
STSTOP,1 

Ri2 
R9OeTEST+SVALUL 
R&-eTEST+SVALUS 
OPTINI 


ROUTINES 


RG X'FFFE* 
R15 
Rl2 


R6,X"FFFE® 
Ri2 

R5MFF 
R159FF SAVE 
R15+PRINT 
RiSeFF,SAVE 
R15 


11337209 01711780 


IF NO, ERROR. 

GET ACOPTION CHECK ROUTINE) 
BRANCH: NO SPECIAL ROUTINE. 
LINK OPTION CHECK ROUTINE 
STORE OPTION VALUE 

TO ACCEPT NEXT COMMAND 


ASSUME DEFAULT REQUIRED 


GET NEXT BYTE 
CARRIAGE RETURN ? 
BRANCH: YES. 

WAS SPACE ? 

BRANCH: INPUT ERROR, 
CLEAR ACCUMULATORS 


GET OPTION VALUE IN R6 
VALID TEST NUMBER ? 
ERROR: INVALID TEST NUMBER 


(R14) = *8000°* 
UNARY OPERAND 
TEST 16331 ? 
BRANCH: YES, 
SET CURRENT BIT 


SET CURRENT BIT 

CMD TERMINATED BY CR ? 
BRANCH: YES. 

WAS COMMA 2 

BRANCH: YES. TRY AGAIN, 
INPUT ERROR, 

STORE VALID SELECTED TESTS 


TO ACCEPT NEXT COMMAND 


IGNORE LSB 
OKAY 
ERROR RETURN 


IGNORE LSB 
ERROR RETURN 


MBFO2960 
MBFO2970 
MBFO2980 
mBFO02990 
MBFO3000 
MBFO5010 
MBF03020 
MBFO3030 
MBF O3040 
MBFO3050 
MBFU3U60 
MBFO3070 
MBFO3080 
MBFO3090 
MBFOS100 
MBFO3110 
MBF 03120 
MBFO31350 
MBFOS140 
MBFO3150 
MBFO3160 
MBFO3170 
MBFO3180 
MBFO3190 
MBFOS200 
MBFO5210 
MBFO3220 
MBF O3230 
MBFO3240 
MBFO3250 
MBFOS260 
MBF OS270 
MBFOS280 
MBF 03290 
MBFUS300 
MBFO3510 
MBF05520 
MBF 03530 
MBFO3S540 
MBFOSS50 
MBFO3560 
MBFO03570 
MBF03380 
MBFO3590 
MBF O3400 
MBFOS410 
MBF 03420 
MBF03430 
MBFOS4q0 
MBFO34%50 
MBF OSS60 
“BF03470 
mBFOS480 


~ 


CCMMON 2.5 AND 10 MB FORMATTER 
EXEC = ETPE ROSPO 


11337509 01/11/7860 


OBC6 C360 FCOO 349 ADR THI R6eX*FCOO?* {R6) = 10 BIT DEVICE ADORESS MBFO3490 
vBCA O33F 350 BZR R15 RETURN TO LOOKS 4BFO3500 
oscc 030Cc 351 BR R12 MBFO3510 
352 = MBFO35S20 
OBCE C360 FFFO 353 LEVEL THI R6eX*FFEO?® (R6) = INTERRUPT LEVEL HEX OIGIT MBFO3SS5S30 
agDd2 O33F 354 BZR R15 RETURN TO LOOKS MBFO3Se0 
OBD4 O30C 355 BR R12 MBF O03550 
383 k#aceenen--- meer een renee ee ene MBFO3830 
584 * TO PROCESS INPUT COMMAND *OPTION® “BF 03840 
3a5 ok MBF0S850 
03806 c540 900n $86 S$OPTPRT CLHI R4eX*0OD* OPTION (CR) ? MBFO3860 
UBOA 233A Sa7 BES SOPT.U BRANCH: YES, MBFO3570 
9B0C 41E0 OFSE 3488 BAL R14sOPTVAL NO, GET OPTION DEV, PRINTOUT NUM, MBFO3880 
0BEO C560 ode ag CLHI RGeSMAXTO OEVICE NUMBER VALID ? MBFO3890 
OBE4 038c 590 BNLR R12 BRANCH: NO. MBFOS900 
JBEG 0866 391 LOAR R6eRE OPTION ZERO ? MBFO3910 
Q3EB 033C 392 BZR R12 BRANCH: YES, INVALIO INPUT, MBFO3920 
OBEA U260 16486 593 ST3 RE IOSAVE+1 CHANGE THE LIST DEVICE MBFO0S930 
OBEE 4820 1756 594 $SOPT.0 LH R2eOPTION+SCKROUT SPECIAL PRINTOUT ROUTINE ? MBFO3940 
0BF2 23352 395 azs OPTRITWN BRANCH: NO. MBF 03950 
OBF4Y G1F2 396 BALR R15¢R2 LINK USER ROUTINE MBFO3960 
UBFG C850 16FC 397 OPTRTN LUAI R3,0PT START OF OPTION TABLE MBFO3970 . 
OBFA 244F 598 SOPT.A LIS R4,15 MGFO3280 
OBFC 4040 175A 399 STH R4eSLINCNT LINES PER PRINTOUT PAGE ABOUT 15 MBF03990 
vco00 2410 400 s$oPT.B LIS R1,0 ; mBFUGUOO 
ucod2 0823 401 LDAR R2,k3 START OF OPTION ENTRY MBFO*OLS 
oC 04 0302 o0v00 402 $9PT,2 Le RO,O(R2) GET OPTION NAME BYTE MBFO4020 
ocde 0201 2C5C 403 ST ROsSOUTRUF(R1) MOVE TO OUTPUT BUFFER MBFU4O30 
Ococ 2611 404 AIS Rigi MBFO4YOKO 
Ocoe 2621 405 AIS R201 MBFO4050 
oc190 C510 0006 406 CLHI Ri-eSCKROUT WHOLE NAME MOVED ? MBFO4060 
0c14 2088 407 BLS $OPT.2 BRANCH: NO, MBFOSO07O 
oclé ce40 2020 4068 LHI R4.C*® ft SPACES MBFO#080 
UCLA 4040 2062 409 STH R4 « SOUTRUFF+SCKROUT MBF U4090 
OC1E €530 16FC 410 CLAI R3-eTEST PROCESSING *TEST* OPTION ? MBF 94100 
oC22 2136 411 BNES $0PT.3 BRANCH: NO, M@F04110 
oc24 C850 1704 412 LDOAI R5SeTEST+SVALUL A(OPTION BITS) MBFO4120 
uc23 41iF0 OFC4 413 BAL R15¢SLSTBIT OUTPUT BIT NUMBERS (E,Geele2eee) “BF 04130 
vc2c 23up0 414 38S SOPTS ADVANCE TO NEXT OPTION MBFO4140 
415 « MBFO04150 
416 #* PROCESSING OPTIONS WITH 4-DIGIT HEX VALUES, MBFO4160 
417 1» OPTION NAME ALREADY IN OUTPUT BUFFER. MBF 04170 
418 * M6F04180 
OC2E 4813 09008 419 GOPT.3 LH R1eSVALUL(R3) OPTION VALUE HALFWORD MBFO4190 
0C32 24u4q 420 LIs RO»4 MBFU4200 
9C34 C820 2C63 421 LDAI R2-eSOUTRUF+SCKROUT+1 BUFFER OFFSET MBFO04210 
0C38 41FO OF9SE 4202 BAL R1ISeHEXASC WRITE OPTION VALUE IN HEX (4 DIGITS MBFO%220 
Oc3c 2400 423 LIS ROX Ope CARRIAGE RETURN MBFO4230 
OC3E D2U0 2C47 424 STa RO»S$OUTBUF+SCKROUT+5 INSERT TO BUFFER MBFO4240 
oc42 41FOQ 1050 425 BAL R1IS*AIPRINT OUTPUT PRINT BUFFER mBFEO4250 
oC46 263C 426 $0PT.5 AHI R3,8STRUCL LENGTH OF TABLE ENTRY MBF 04260 
oc4s C530 1750 4a7 CLAI R3,O0PTEND2 - DONE ALL PRINTING OPTIONS ? MBF OG2TO 
BRANCH: YES. MBFO4280 


oc4ee 4380 0ABS | 428 BNL OPTING 


COMMON 2,5 AND 10 MB FORMATTER PAGE 9 11237209 01711780 


EXEC - ETFE ROSPO 


oc50 
oCS4 
acss 
vc5C 
UCS5E 
GC62 
uC66 
uCc6A 
OC6E 
oc7a 
oc74 
yc76 
OCTA 


OC7E 
ac82 


ocae 


0ca&sb 


0c83a 
ocsc 
oc9o 
uc92 
0C94 
0C98 
Oc9C 
ocgE 
OCA 
OCA2 
OCA4 
OCAB 


OCAC 
uC830 
OCB4 
0cBa 
UCBA 
UCS3E 


occa 
occ4 
occa 
acce 
GCCE 
acDB2 
ucds 
OCDA 
0coC 


0300 
D400 
4236 
2504 
6100 
4236 
4iFQO 
D34g 
2740 
4330 
2643 
4239 
4300 


cS10 
2533 
2740 
v25C 
go00 


C8FO 
4800 
2146 
Q4FF 
4800 
4330 
9001 
2183 
27F1 
2203 
GOO 
41F0 


41IFO 
41FO 
41F0 
2400 
4000 
400 


2501 
4000 
4810 
2611 
4910 
4220 
4010 
24860 
4080 


1603 
0A10 
OBFA 


175A 
oCoo0 
1138 
2Cac 
OABS 


vADS 
OBFA 


1780 


ocaa 


O01F 
1706 


1704 
1AC8 


16190 
1368 


1036 
1B74 
132A 


1618 
161A 


161C 
161C 


1610 
9D6C 
161C€ 


161E 


429 


431 
432 


472 
473 


477 
478 
479 
4960 
4681 


LB ROsTOSAVE+1 
CLB Ro,10 

BNE SOPT.A 

LCS ROX 

AH ROsSLINCNT 
BNZ SOPT.8B 

BAL R15sSREAD 
LB R4,SINBUF 
SIS R4.X* Ope 


Kec ree im ewew eer eet ete e nw awe ; 
* ‘RUN’ COMMAND HAS BEEN ENTERED 


* 
SRUNIT CLAI R1,FLAG 
BES SRUNe1 
SIs R4,.X*ope 
. BNZR R12 


* FIND HIGHEST SELECTED TEST NUMBER 


LHI R15e31 

LH ROeTEST+SVALU2 

BNZS SKEEP.1 

LIs R15:15 

LH RO,TEST+S$VALUL 

32 ERRORS : 
SKEEP.1 SRLS ROL 

BCS SKEEP,2 

sIs R15e1 

BS SKEEP e1 
SKEEP.2 STH R15sSELTST 

BAL R15sLCORE 
* 

BAL R15eCRLFE 

BAL R1i5¢INIT 
INITRET SAL R15*SETLST 

LIs RO,0 

STdH ROeTOTAL 

STH RO.,TOTERR 


Kor eee Se e®®a awe eOwawrwaeaew = we ee ee ee 


CURRENT LIST 1D 
SAME AS CONSOLE ? 
BRANCH: YES, NO LINE CNT TEST. 


DECREMENT COUNTER 

BRANCH: SCREEN NOT FULL 

GET (CR) OR (LE) TO CONTINUE 
FIRST CHARACTER 

CARRIAGE RETURN 7 

BRANCH: YES, OONE, 

LINE FEED (x*OAt) ? 

BRANCH: NO, ATTEMPT DECODE, 
BRANCH: CONTINUE. 


CARRIAGE RETURN ENTERED 7 
BRANCH: INPUT ERROR, 


INITIAL OFFSET FROM 0 

BITS FOR TESTS 16:31 

BRANCHS BIT(S) SET. 

OFFSET FROM 0 

BITS FOR TESTS 6415 

BRANCH: NO ORIVE SELECTED .« 06-1 
SHIFT UNTIL BIT SEEN 

BRANCH: GOT IT, 

DECREMENT INDEX 

AND LOOP. 

HIGHEST SELECTED TEST NUMBER, 
SET UP LOW CORE 


LINE FEED TO LIST DEVICE 
LINK USER INITIALIZATION ROUTINE 
SELECT LIST DEVICE 


RESET TOTAL 
RESET TOTERR 


* TO PROCEED TO NEXT SEQUENTIAL TEST (STARTS WITH TEST 0) 


* 
SKEEP1 LCS ROel 
STH RO,sBTESTNO 
SKEEP2 LH R1,8TESTNO 
AIS R1,1 
CH R1sSELTST 
BP SKEEPS 
STH R1,STESTNO 
Lis R6,O 
STH R8,COUNT 


RESET BINARY TEST NUMBER 
BINARY TEST NUMBER 


STILL VALID ? 

BRANCH: NO, 

INCREMENTED TO CURRENT TEST 
OFFSET TO LOW-ORDER HALFWORD 
ZERO LOOP COUNT 


MBF 94290 
MBF 04300 
MBFO4310 
MBFO4300 
MBF 94330 
MBFO43480 
MBFO4350 
MBFO4560 
MBFO4370 
ABF 04380 
MBFO4390 
MBFO4400 
ABF 04410 
MBFO4420 
MBFO4430 
MBFO4440 
MBFO4450 
MBFO4460 
MBF04470 
MBFO44%a0. 
MBFO4490 
MBFO4500 
MBF04510 
MBFO45S20 
MBFO4530 
MBFO4S4O 
MBFO4SS5O 
M6F 04560 
MBFO4570 
MBFO4580 
MBF04590 
MBFO4600 
MBF 94610 
MBFO4620 
MBFO46350 
MBFO464O 
MBF U4650 
MBF 04660 
MBFO4E670 
mMBFO4680 
MBFU4690 
MBFO4TOO 
MBF04710 
MBF O4720 
MBFO4730 
MBFUS7Ku0 
MBF047590 
MBFO04760 
4BF048770 
MBFO4780 
MBFOu799 
MBFUSB00 
4BF904810 


ahi! 


COMMON 2,5 ANO 10 MB FORMATTER 
EXEC - ETPE ROS5PO 


OcEeO 
OCE4 
JCES8 
OCEA 
Ocec 
OCcEE 
oCF2 
JCF6 
OCFA 
UCFE 
JvU02 
O04 
vuU08 
JUOA 


udCC 


u010 
0012 
OL14 
3618 


uD1A 
ODIE 
022 
0024 
0028 
902c 
U030 


9032 


0036 


OU3A 


003C 
JD4O 


0042 
0046 
0048 


oD4ec. 


0D50 
0054 
0056 
005A 
OOSE 


0062 
o066 
0068 


4080 
c510 
2182 
2482 
0861 
41E9 
4438 
4330 
4800 
CAuQ 
u6eOl 
C460 
2761 
2114 
CAu0 
22u4 
c510 
2182 
26U1 
ouUuN 
4uud 
c820 
2401 
41F0 


_41lFo 


41F oO 
1416 
4“1FO 
D4u0 
2354 
41F0 
1A16 


41FO 
2400 
4000 


48E0. 


48FO 
91F1 
4BFO 
DOEO 
c200 


4810 
9501 
4300 


160C 
0010 


OF72 
1704 
occs 
1719 
0010 


agus 


Gu10 


oguU4 


ao1a 
189A 
1A1C 


UF 9E 
1320 
1042 


1324 
0A10 


1042 


1246 


16UC 
0A50 
161C 


1870 
15E8 
15E8 


oA52 


occa 


482 


489 
490 
491 


207 
508 
509 


534 


SKEEP2e1 


LaBl 


LaBbe 


LaB3 


PASE 19 


RBvISITERR 

R1,26 

S$KEEP2,1 

RBe2 

R6—5R1L 

R14 eUNARY 
R3eTEST+$VALUL(RS) 
SKEEP2 
ROsOISCON+SVALUL 
ROext1loe 

REeR1 

R603 

n6el 

tLAse 

RO gX*1d¢ 

LA31 

R1ie4 

LABS 

RO 


x 
RO.FUTASRS 
R2e4SG612+6 
ROw1 
R15e*HExXASC 
R15eSETKB 
R15e¢SPRINT 
msGl2 
R1i5*SETLST 
Ro,I0 
SKEEPS 
R1S5e¢SPRINT 
MS612 


* TO RUN CURRENT SELECTED TEST 


* 
SKEEPS 


* THE SUBTEST 


x 
TSTEND 


BAL 
LIs 
STH 
LH 


LH 
EPSR 


R15*TSTARK 
RO.0 
RO-eISITERR 
R14«PSW 
R15*«BTESTNO 
R15*LaAoc 
R1iS¢*TESTS 
R14 eNEWPSW 
NEwPSw 


HAS BEEN RUN 


R1ePSw2 


* ENTIRE TEST SEQUENCE HAS RUN 


11337309 01/11/7680 


RESET ERROR FLAG 

TEST 0 TO 15 ? | 

BRANCH: NO, 

OFFSET TO HIGH-ORDER HALFWORD 


CONVERT (R6) TO BIT IN RS 
TEST SELECTED 7 

BRANCH: NO. FIND ONE THAT IS, 
06-173F02 

e 06-173 

Q6-173 

06-173 

06-173 

06-173 

06-173 

06-173 

067173 


06-175F 02 
G6-173F02 
06-173F02 
06-175F02 
06-173F02 
06-1735F 02 
DRIVE xX SELECTED 
060173F02 
06-173F02 
06-1735F 02 
06-1/3F02 
06-173F 02 


06,-173F02 


CHECK BREAK KEY 


RESET ERROR FLAG 
SPECt*D AS xX*7OFQOt 
BINARY TEST NUMBER 
CONVERT TO OFFSET 
POINTER TO TEST MODULE 06-173 


GO TO TEST, WITH INTERRUPTS ENABLED 


SPEC*D AS x'30FO! 
DISABLE INTERRUPTS 
060173 


MBF ORSS0 
MBFO4830 
MBFO4840 
MBFO4S50 
MBFO4860 
MBFOtSTO 
MBFO4860 
MBFO4890 
mBFU4SS900 
MBFO4910 
MBFO4920 
MBFO4930 
MBFO4940 
MBFO4950 
MBF 04960 
MBF 04970 
MBFO04980 
MBFO4&990 
MBEUSUOO 
MBFOS010 
MBE USU20 
mBFOS030 
MBFO0S040 
MBFOSO050 
MBFOS5060 
MBFOSOTS 
MBFUS5980 
MBFOS090 
MBFO5100 
MBFO5110 
MBFO02120 
“BF 05130 
MBFOS140 
MBF05150 
MBFO5160 
MBFO5170 
4BFOS180 
MBFO5190 
BF US200 


MBF05210° 


MBF OS220 
MBF 05230 
MBF 05240 
MBF 05250 
MBF 05260 
MBF OS270 
MBFOS2e0 
MBFOS290 
HBF 053500 
4BF09310 
MBFOSS20 
MBF 05330 
MBFIS3540 


COMMON 2.5 AND 16 MB FORMATTER 


EXEC - ETPE ROSPO 


a66C 
DU6E 
vI72 
0076 
OD7A 
OD7E 
9982 
0984 


0086 


OOBA 


ODBE 
0092 
vooYy 
u098 
gO9A 
gO9¢ 


QOSE 
0040 
JOA4Y 
oDA8 
BDAA 
OCAE 
0030 
uJUB4 

538 
UYBC 
JOBE 
O0C2 


oocée 


uOCa 
voce 
add 
0004 
o0D6 
ODDA 


OODE 


o0u0 
ULUO 
2401 
6100 
41F 0 
4616 
4230 
48E0 
2332 
vIFE 
yuoo 
4800 
4330 


0000 
41F 0 
2336 
c810 
9114 
9501 
2207 


0000 
2400 
4OU0 
41FO 
16F4 
¥1FO 
1654 
ca4o 
4040 
4U40 
24uy 
C820 
4610 
HLF O 
4810 
2628 
41FO 
2400 
p202 
41FO 


4300 


BD6C 
UDEC 


1618 
1208 
178C 
occ2 
1622 


0D86 
1616 
0ABS 


ODBE 
12b8 


O80F 


OOSE 


1616 
1042 


1942 
220 
2C60 
2Cé2 
2csc 
1618 
OF SE 
1614 
OF 9E 
0004 
1050 


OA76 


ABORT 
$KEEPS 


SKEEP5S el 
SKEEP5S «2 


* 
HALTS 


* 


* LIST DEVICE WAS OFF-LINE. PRINT TOTAL, TOTERR 


* 
$KEEP7 


* *% 


ee HH 


B 


PAGE 


KOel 
RO+ TOTAL 
R1i5¢TSTou 
R1.CONTIN+S$VALUL 
SKEEP1 
R14eSSHUTDWN 
$KEEP5,1 

R1i5eR14 

* 

ROe SWASDU 

OpTIN. 


* ’ 
.R15eTSTOU 


SKEEP7 
R1eX*OS80F? 
R14 
Ro,R1 . 
HALTS 


b 4 

RO,0 
RO,SWASDU 
R15¢SPRINT 
NULLMSS 
R1iSe«SPRINT 
TOTMSG 

RGeC* 8 

R4 eSOUTBUF +4 
K4,SOUTBUFF+6 
RO,4 
R2,S0UTRQUF 
R1sTOTAL 

RIS sHEXASC 
R1i,eTOTERR 
R28. 

R15 eHEXASC 
RO,X*05° 
RO4(R2) 
RiS*e«APRINT 


STARTA 


ERROR ROUTINES 
RETURN LINK R153 


11 


11237:09 


01/11/80 


BRANCH HERE TO HALT TESTING 


GET TOTAL+1 


(MODULO 2**16) 


R1 <> 0 IF LIST OFFLINE 
R1 <> o IF CONTIN = 1 
BRANCH: START NEW SERIES. 


ANY USER@SPEC'D POST«TEST ROUTINE 9? 


BRANCH$ NO, 


GO TO SPECIFIED ROUTINE. 
° 06°173F02 
WAS LIST DEVICE OFFLINE ? 


BRANCH: 


STOP MACHINE FOR ERROR PRINT 
CHECK IF LIST DEVICE OFF-LINE 
ON-LINE NOW, 


BRANCH: 


Ril = X*80FQ" 


STOP PROCESSOR, WHEN *EXE/RUNe DEP 
CHECK IF LIST DEVICE ON-LINE, 


NO, GET NEXT COMMAND 


RESET DU FLAG 


OUTPUT NULL STRINGs CRLF 


*TOTAL 
SPACES 


DESTINATION 


TOTERR®* 


CONVERT TOTAL 


DESTINATION 


CONVERT TOTERR 

CARRIAGE RETURN 

TO TERMINATE MESSAGE. 
PRINT CONTENTS OF BUFFER: 


TOTAL 
XXXX 
PRINT TITLE, 


KEKE KEKE ECE K EEE RAKE EERE RE RKEAKE KEKE 


TOTERR 
YYYY 


ACCEPT COMMAND. 


{OVERRINE NOMSGS OPTION) 


NO REGISTERS MODIFIED, 


MBFOS550 
MBF 05560 
MBFO5570 
HBF0535e80 
MBF 093590 
MBFOS400 
MBFO5410 
MBFO5420 
MBF 05430 
MBFOS44&0 
MBFOS450 


MBFOD460 . 


MBFO5470 
MBFOS480 
MBF05490 
MBF05500 
MBFOS510 
MBF05520 
MBFOS530 
MBF02540 
MBFO09550 
MBFOS560 
MBFO9570 
MBF 05580 
MBF05590 
MBFO2600 
MBFO5S610 


MBFUS620 


MBF05630 
MBF 05640 
MOFO2650 
MBF 05660 
MBF05670 
MBFO5680 
MBF05690 
MBFUDTOO 
MBFO2710 
MBFOS720 
MBFO5730 
MBFO5740 
MBFO5750 
MBFO5760 
MBF05770 
MBFOS780 
MBFOS790 
MBFO5800 
MBF0S810 
MBFO05820 
MBF 05830 
MBFO5990 
ABF 96000 
MBF 06010 
MBF06020 


COMMON 2,5 AND 10 MB FORMATTER 
EXEC - ETPE ROSPO 


CDE2 
GDE6 
uOEA 


ODEC 
oOFO 
OOF4 
QDF6 


GOFS 
DOFC 
QE00 
dEO02 


OE04 
0E08 
vEOC 
VEOE 
0E10 


ne~asa 


VOAe 


0E16 
DE1A 
OE1E 
0£20 


DE22 


vE26° 


DEA 
OE2C 
JE2E 


DOFO 
41Fo 
oESC 


ooFG 
41FO 
0E90 
OESC 


DOFO 
41F0 
vEA2Q 
GESC 


DOFO 
41F0 
vE90 
VEA2 
VESC 


DOF oO 
OUEO 
41F0 
oEF6 
OESC 


OUFO 
41F 0 
OEBY4 
OEDY 
oESC 


pauo 
4810 
9501 
48u0 
4000 
4000 
26F1 
C4FQ 
4BCF 
48D0F 
41£0 
O1EC 
O1E0 


2400 
4000 
2411 
4019 


6116 


2cso 
0E30 


2cso 
0E30 


2C50 
vES3O 


2c50 
OE30 


Gm A 
moo 
wm on 
moo 


2C50 
vE30 


2D7C 
0A5S2 


1642 
164C 
169¢C 


FFFE 
ov00 
0002 
0E86 


160C 


160E 
161A 


603 
604 
605 
606 
607 
608 
609g 
610 
611 
612 
613 
614 
615 
616 
617 
618 
619 
620 
621 
622 
S23 
6e4 
625 
626 
627 
628 
629 
639 
631 
632 
633 
34 
635 
636 
637 
638 
639 
640 
641 
642 
643 
644 
645 
646 
647 
643 
649 
650 
651 
652 
653 
654 
655 


* 
ERRALL 


* 


ST 
BAL 
DAC 


STM 
BAL 
DAC 
DAC 


ST™ 
BAL 
DAC 
DAC 


STM 
BAL 
DAC 
DAC 
DAC 


STA 
st# 
BAL 
oac 
DAC 


STM 
BAL 
DAC 
DAC 
DAC 


R15*SR1S5SAV 
R15+ERRCOM 
ERRCOM1 


R15+S$R15SaV 
R15+ERRCOM 
ERRO1 
ERRCOM1 


R15*$R15SAV 
R15+ERRCOM 
ERRS1 
ERRCOM1 


R15e$R15SAV 
R15+ERRCOM 
ERRD1L 

ERRS1 
ERRCOM 


RIS sSRLSSAV 
R14s°OLDPSW 
R1iS*ERRCOM 
ERRL1 
ERRCOM1 


R15«SR1i5SAV 
R15:sERRCOM 
ERRDS1 
ERRPL1 
ERRCOM1 


* COMMON ERROR ROUTINE 


* 
ERRCOM 


* 
ERRCOM1 


ROsERRSAVE 
R1+PSw2 
ROyR1 
RO»MTESTNO 
RO,ETESTNO 
ROISITERR 
R15+ADC-1 
R15+0°ADC 
R12+0(R15) 
R13sADC(R15) 
R14+ERRY 
R14+R12 
R14sR13 


RO,O 
RO,ISITERR 
Riel 
R1IeNOERR 
R1.TOTERR 


) 
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SAVE LINK 
"ERROR TTNN® 
EXIT 


SAVE LINK 
"ERROR TTNN? 
"DEV DOD 
EXIT 


SAVE LINK 
"ERROR TTNN® 
"STA SS* 
EXIT 


SAVE LINK 
"ERROR TTNN® 
*OEV ODD 
"STA SS* 
EXIT 


SAVE LINK 

STORE CALLER'S PSwWe Loc 
"ERROR TTNN®? 

*Loc LLLL® 

EXIT 


SAVE LINK 

"ERROR TTNN? 

"DEV DDD STA SS* 
*Psw PPPP LOC LLLL*t 
EXIT 


STORE USER REGISTER SET 

SPEC*'D AS x*30FO0* 

DISABLE INT. @ PROCESSOR LEVEL 
MASTER TEST NUMBER 

MOVE TO MESSAGE 

TO FORCE ERROR PRINT 


FIRST PARAMETER 
SECOND PARAMETER 
"ERROR TTNN?® 

GO TO FIRST ROUTINE, 
SECOND ROUTINE, 


RESET ERROR PRINT FLAG 


SUPPRESS THAT PRINT 
INCREMENT TOTERR 


MBFUG036 
MBFO60&0 
MBFO6050 
MBF O0G060 
MBF 069070 
MBFOG0BO 
MBFO6090 
ABFO06100 
MBFO6110 
MBF06120 
MBFO6130 
MB8F06140 
MBFO6150 
MBFO6160 
MBFO6170 
MBF06186 
MBF 06190 
MBFUG2Z00 
MBFO6210 
MBF 06220 
mBFU0G230 
MBFU6240 
MBFO6250 
MBF 06260 
MBF 06270 
MBFO6280 
MBF OS290 
MBFO06300 
MBF06310 
MBF 06320 
MBFO06330 
MBFO0G6340 
MBF 06350 
MBF06360 
MBFY6370 
MBFO06380 
mBFO06390 
MBFU6400 
MBF 06410 
MBF 06420 
MBF 06430 | 
MBFO644Q . 
MBFOG450 
MBFO6460 
MBF 06470 


MBFO64a80 


MBF OG490 
MBFO6S500 
MBFU6510 
MBF U6S20 
MBF 06530 
MBFOG5S0°- 
MBF O&556 


COMMON 2,5 AND 19 MB FORMATTER 


EXEC - ETPE ROSPO 


gE6C 


OEGE. 


0E70 
OE74 
0E78 
GETC 
OE 80 
OE 84 


vEBS 
GE86 
OESA 
DEBE 


vESO 
QE94 
0696 
DESA 
QE9E 
VEAO 


OFA?) 
OEAG 
JEAS 
GEAC 
vEBO 
DEB2 


OEB4 
0bBS8 
OEBA 
CEBE 
OEC2] 
oEC6 
vECa 
OECC 
YEO0 
oeD2 


2136 
2511 
4U10 
41FO 
4230 
0100 
D1FO 
O3GF 


DUEO 
H1EO 
1646 


DUEQ 
24u3 
4616 
41E0 
1681 
1670 


UGED 
24U2 
310 
41£0 
1678 
1674 


DGEO 
2403 
4810 
C820 
41FoO 
2402 
031u 
41E0 
1678 
166C 


161A 
1208 
ODBE 
207C 
2csu 


2C54 
OF 30 


2C54 


15FA 
gF20 


2C34 


15FC 
OF 20 


2c54 


15FA 
1670 
OF SE 


15FC 
OF 20 


ERRCOM2 LM 


CNOP 
ERR1I ST 

BAL 

BAC 


x 
* 
* TO PRINT *NEV ODDS 
* 
E 
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ERRCOM2 
Riel 
RisTOTERR 
R15*eTSTov 
HALTI 

Ro, ERRSAVE 
R1i5sSR1i5SAV 
R15 


MESSAGE PRINT ROUTINES 
RETURN LINK R14; REGISTERS MODIFIED ROR1eR2,R5, 


TO PRINT *ERROR TINN® 


A0C 
R14eSR14SAY 
R14*+SMSGPRTL 
ERRMSG 


RROD STN R14¢SR1IGSAY 
LIS ROeS 
LH R1,ERRDEV 
BAL R14eSMSGPRT 
DAC AScIDEVve 
DAC DEVMSG2 


* 


x TO PRINT *STA SS* 


* 
ERRS1 st 


* 


Ri4sSR14SAyV 
RO»2 
R1sERRSTA 
R1i4s$MSGPRT 
ASCISTA 
STAMSG 


*x TO PRINT "DEV DODD STA SS? 


* 
ERRDOS1 STA 


R14eSR14SAV 
RO<3 
R1.eERRDEV 
R2,ASCIDEV 
R1i5eHExasc 
RO,.2 
R1,ERRSTA 
Ri4eSMSGPRT 
ASCISTA 
DEVNSG 


* TO PRINT *PSW PPPP LOC LLLL?® 


11337209 01711780 


BRANCH: STILL COUNTING, 
65,535 ERRORS REPORTED 


LIST DEVICE OFF-LINE ? 
BRANCH: YES, 

RESTORE REGISTERS 
RESTORE LINK 

RETURN TO CALLER. 


(00 NOT OVERRIDE NOMSG OPTION) 


ALIGN PARAMETER 
SAVE LINK 

PRINT MESSAGE 
"ERROR TINN® 


TT FROM MTESTNO, NN FROM ERRNO 


SAVE LINK 
SET UP DIGITS = 3 


Ri = ERROR DEV # IN BINARY 


PRINT "DEY DODD* 
HEXASC DESTINATION 
A( MESSAGE) 


SAVE LINK 

SET UP DIGITS = 2 
Ri = ERROR STATUS 
PRINT «STA SS? 
HEXASC DESTINATION 
A(MESSAGE) 


SAVE LINK 

SET UP DIGITS = 3 

R1 = ERROR DEV # 
HEXASC DESTINATION 
CONVERT IT TO ASCII 
SET UP DIGITS = 2 

R1 = ERROR STATUS 
PRINT "DEV ODD STa SS* 
HEXASC DESTINATION 

A( MESSAGE) 


MBF 065606 
MSF06570 
MBFOU6SB0 
MBF 06590 
MBFO6600 
MBFO6610 
MBF U6620 
MBF 06630 
MBF 066480 
MBFO06650 
MBF 06660 
MBF 06670 
HBF O66a0 
MBFOGES0 
MBFO6700 
MBFO6710 
MBFOS720 
mBFOS730 
MBFO6740 
MBFO6750 
MBF06760 
MBF 06770 
MBrFO0G7TB80 
MBFO06790 
MBF UG8O0 
MBF 06810 
MBF 06820 
MBF 06830 
mMbe06Sa0 
MBF 06850 
MBF O0C860 
MBF 06870 
MBF 06880 
MBF 06890 
MBF0G900 
MBF06910 
MBF06920 
MBFO06930 
MBF O6940 
MBFO6950 
MBF06960 
MBFOC9T0 
MBE 06980 
MBF06990 
MBFO07000 
mMBFUTO010 
MBFUTU20 
MBF 07030 
MSF97040 
MBFO7080 
NBFO7060 
aBFG7070 
“8F07080 


COMMON 2.5 AND 10 MB FORMATTER 
EXEC - ETPE ROSPO 


0EO4 
~ E08 
QEOC 
OEDE 
QEDE 


VEEO- 


OfE4 


9EE6 
yEES 
vEEC 
OEFO 
JEF4 


OEFSG 
NEFA 
JEFE 
nea 
QF D4 
UFUY 
OF OS 
OF OA 


OF OC 
UF OE 
OF 12 
OF 16 
OFLA 
OF1E 


OF20 
oF 22 
OF 26 
OF2A 
OF 2E 
OF 30 
GF 34 
uF 3a 
OF SC 


OF3E 
GF40 
OF 40 


oF 42 


DOo£O 
DLEO 
O81E 


2464 


4850 


2332 


e4u6 
C820 
C830 
41F 0 
235u5 


GOED 
C8509 
JLES 
Q81F 


24uy 
4BEO 
2332 


e4u6 
cé2o 
41FO6 
G1FO 
O1EG 
O30E 


26E1 
C4HED 
4¥82E 
41FO0 
26E2 
4a5eE 
41FQ 
D1ES 
O30E 


2460 
2470 


0343 


2C54 
15£0 


FFFE 
0ud0 
OF 9E 


0000 


105a 
acs4 


2Cac 


709 


714 
715 
716 


ERRPL1 STt4 R14sSRi4SAV 
LM R14sOLoepsSwW 
LOAR R1eR14 
IFZ ADC-2 
LIS RO0,% 
LH RS,MO032 
32S ERRPLIA 
ENDC 
LIs RO 
ERRPL1A LOAI R2,ASCIPSy 
LDOAI k&5,PSWMSG 
BAL R1I5*HEXASC 
38 ERRPL1, 
x 
x TO PRINT "LOC LLLL* 
* 
ERRL1 ST R14eSRi4SAV 
LOAT R5eLOCMSG 
ERRPL1B LM R14*eULOPSHW 
{DAR R14R15 
IFZ ANC=2 
LIs RO,+ 
tH R15*M00342 
525 ERRLIA 
ENOC 
LIs RO.6 
ERRLIA LOAI R2,ASCILOC 
BAL R15sHEXASC 
BAL R1IS*PRINT 
LA R14eSR1i48SAV 
BR R14 


* 
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SAVE REGISTERS 
R14 = PSWe R15 = LOC 
PSW TO PRINT REGISTER 


ASSUME SERIES 16 


SERIES 32 
DESTINATION 


CONVERT PSW 
GO CONVERT LOC 


SAVE REGISTERS 
A(MESSAGE) 

R15 = OLO LOC TO PRINT 
DATA TO PRINT REGISTER 


ASSUME SERIES 16 


SERIES 32 
DESTINATION 
CONVERT 
PRINT 
RESTORE LINK 
RETURN 


* ROUTINE IS CalLLED BY MESSAGE PRINT ROUTINES 


* 
SMSGPRT 


SMSGPRT1 


* 

* TO OBTAIN OPTION VALUE IN RG 

* RETURNS WHEN SPECIAL CHARACTER 
* 
0 


PTVAL 


$oPTV.9 


AILS 
NHI 


LIS R6.0 

IF2Z ADC-2 

LIs R7.0 

ENOC 

L6 R4,SINBUF (RS) 


R14e«ADC-1 
R14sGeAnc 
R2.0(R14) 
R15«HEXaASC 
R14eADC 
R5<0(R14) 
RiSsPRINT 
R14 +SR1IGSAV 
R14 


HEXASC DESTINATION 
CONVERT DATA TO HEXADECIMAL 


ACMESSAGE TO PRINT) 
PRINT SPECIFIED MESSAGE 


RETURN TO ORIGINAL CALLER 


(R7sR6e TARGT 16) 


FOUND. IGNORES SPACES, 


INITIALIZE ACCUMULATOR 
HIGH-ORCER BITS, TARGT 16 


GET NEXT INPUT CHARACTER 


MBFU7O90 
mBFU7100 
wBF07110 
MBFO?7120 
MBF O71350 
MBFUT14UO 
MBFO7150 
MBF07160 
mMBFO7170 
MBFO7180 
MBFO7190 
MBEUs200 
MBF07210 
MBFOT220 
mMBFO72350 
MBFO7240 
MBFO7250_— 
mBF07260 
MBFOT270 
MBFO7280 
MBF 07290 
MBF VU7300 
“BF 07510 
MSFOTS20 
MBF 07330 
MBFO7S40 
mbFu75S50 
MBFO7360 
MBFO7T370 
asFo74se0 
MBFO7390 
MBFO74%00 
MBFO7410 
MBF O7420 
MBFO74%30 
MBFO7440 
MBFOT4SO 
MBFO7460 
MBFO7470 
mBFO7480 
MBFO/490 
MBF U75S00 
MBF07910 
w8e07520 
MBFO7S30 
MBFO7S4O 
MBFO7550 
MBFOS60 
MBFO7570 
MBFO7S80 
aBbe07590 
MBFO?é600 
MBFO7510 


‘COMMON 2.5 AND 16 MB FORMATTER 


‘EXEC = ETPE ROSPG 


OF46 C530 0050 762 
OF 4A 036E 763 
— OF4C 2631 764 
OF4E C540 9020 765 
OF52 2238 766 
OF54 C540 9030 767 
OF 58 0285 768 
UFSA QuFF 769 
OF5C D44F 162¢ 770 
OF E60 2334 771 
vF62 27F1 772 
OF64 (2214 773 
UF 66 u3UC 774 
OF68  EB60 0004 775 
OFE6C: O66F 776 
UF GE 4300 OF42 777 
a 778 

779 

4 780 
OF72 2438 781 
GF 74 913¢ 782 
OF76 CC36 0000 783 
UFT7A Q3GE 784 
an 7A5 
786 

787 
OF7C 788 
QVOUD OFTC 7a9g 

NF7C 790 
792 

oucgg OFTC 793 

794 

795 

796 

OF7C DOUVO 2CFC 797 
UF 80 2410 793 
OF a2] 2421 799 
vFB4 4830 OAS5A 800 
OF88  C1llo oF88 sol 
OFAC 2704 eG2 
OF BE 2037 803 
OF90 2301 604 
805 

606 

807 

vF92 0100 2CFC 829 
OF 96 O3uF 830 
832 

633 

B34 

835 

OF Sa D190 2cFC 836 
oF9C O30F 837 


CLHI. R3sSBUFLEN 


LIS R15915 
$OPTV.2 CLB R4,HEXTAB(R1I5) 
BES SOPTV.3 
Sis R1i5el 
BNAS SOPTV.2 
BR R12 
S$OPTV.3 RELL R694 
OAR R6,R15 
B SOPTV.O 
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AT END OF INPUT BUFFER ? 
RETURN IF YES~e 

ADVANCE BUFFER POINTER 
SPACE 7 

BRANCH: YES. IGNORE. 

LESS THAN ZERO ? 

RETURN IF SPECIAL CHARACTER 


SCAN TABLE 
MATCH 


ERROR§$ VALUE NOT IN TABLE. 
(R62R7)e« SERIES 16 
OR IN CURRENT DIGIT 


* TO CONVERT (RE) FROM BINARY TO UNARY PATTERN, IN RZ 


* 

UNARY LIS R3.8 
SLHLS R3,12 
SRHL R3.00RE6) 
BR R14 


IFNZ $CLOCK 
$TIMER EQU x 
IFZ $CLOCK=3 


TIMER Eau * 
ENDC 


BIT TO SHIFT 

R3 = *8000° 

SHIFT TO DESIRED POSITION 
AND RETURN, 


So 
i} 


INCLUDE NO TIMERS 


Oo 
u" 


INCLUDE BOTH 


x TO PROVIDE # OF MILLISECONDS DELAY SPECIFIED BY Ro 


x 
STM RO»sRSAVE 
$STIMi Lis R1,0 


LIS R2el 
LH R3.,STIMVAL 
RXLE R1,* 
sts ROel 
BNZS SsSTIM1 
B STIMRET 
: 
Kew nn aetna eZ ew a wee ee ew ewe omae ewe =e 
* ; 
STIMRET LM Ro,RSAVE 
STIMXT BR R15 


* ROUTINE RESTORES REGISTERS SAVED 


* AND RETURNS BY R15 


* 
SRSAVRET LR ROORSAVE 
BR R15 


SAVE REGISTERS 
(R3) = CONSTANT FOR 1 MSEC DELAY 


LOOP TILL SPECIFIED DELAY 
RELOAD REGISTERS: RETURN (R15) 


RESTORE USER*S REGISTERS 
AND RETURN, 


ON ENTRY TO CALLING ROUTINE 


RETURN TO ORIGINAL CALLER 


MBFO7620 
MBF O7630 
MBFO7640 
MBFO7650 
MBFO07660 
mBFO07670 
MBF07680 
MBFO7690 
MBFO7700 
MBFO7710 
MBFO7720 
MBFO7730 
MBFO7740 
MBFO7750 
MBFO7760 
MBFO7770 
MBFO7780 
MBFO7790 
MBFO7800 
MBFO7810 
MBFO7820 
MBF O7830 
MBFO7840 
MBFO7SS50 
4BFO7860 
MBFO7870 
MBFO7880 
MBFO07890 
MBFO?900 


MBFO7930 


. MBFO7940 


MBFO7950 
MBFO7960 
MBFUT7I70 
MBFOTIBO 
MBFO?7990 
MBF OB000 
MBFO8010 
mer 08020 
MBFO08030 
MBF OB04O 
MBFO8050 
MBFO8060 
MBFO8070 
MBFUS8290 
MBFU8500 
MBF 08520 
MBFO8530 
MBFO8S40 
MBFOBS50 
MBFO08360 
MBFO8370 


a 


COMMON 2.5 AND 10 MB FORMATTER 
EXEC = ETPE ROSPO 


OFSE 
OF A2 
UFAY 
OF AG 
OF AS 
OFAA 
OF AE 
OFB2 
UFS6 
OFBA 
OFBC 
OFBE 
aFCO 


0000 
0830 
9132 
2734 
084] 
EC43 
c440 
0344 
242 
2621 
2734 
2216 
4366 


2crc 


9000 
vOOF 
16z2C 
ov00 


DFI6 


OFC4 
207C 


govu0 
0002 
nu10 
1004 
9008 
002C 
2cSc 


2csc 
OFSE 


ocor 
OFEO 


acse 


838 


319 
920 
921 


337 
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eeeeeee THIS TS WHERE TO IMPLEMENT STACK 


* TO CONVERT HEXADECIMAL DATA IN R1 TO ASCII CHAR & STORE & O(R2) 


* OUTPUTS UP TO 4 DIGITS (8 DIGITS. 


* 
HEXASC 


SHEXA,1 


STM 
LOAR 


ROeRSAVE 
R3.RO 
R32 
R34 
Ra,kl 
R4¥,0(R3) 
R4e1l5 

RG sHEXTAB(RY) 
R4Y,UCR2) 
R2el 
R24 
SHEXA,1 
SRSAVRET 


ee ae ee 


SERIES 32) 


STORE REGISTERS 


R3 = DIGITS 

RZ = 4(DIGITS) <4 

Ry = HEX DATA 

R4 = HEX DIGIT TO BE CONVERTED 


STORE ASCII CHAR 


LOOP TILL ALL DIGITS 


RESTORE REGISTERS, RETURN (R15) 


STARTING FROM HIGH-ORDER BIT AS BIT O 


LSTBIT 


SLSTBeA 


$LSTB8.B8 


SLSTB.U 


tE_STB.1 


$LSTB.2 
$LSTB.EA 


x 

RO,ERRSAVE 
ROel 

R1,.0 

R7.0 
R3,O(R5) 
SLSTB.B 
R3.20R5) 
ROe2 
R1..X*1o08e 
R2_,$CKROUT+2 
R31 
SLSTB.2A 
R2eSCKROUT+2 
S$LSTB.1 
R4eC%et 
R4-«SOUTRUF(R2) 
R2el 

R13eR2 
R2,S0UTBUF 
R195 *HEXASC 
R2-R13 

R2,R9 

Riel 

R1,15 
SLSTB.O0 
RG.x'ODs 

RY, SOUTRUF(R2) 
R7eR!] 


¥ 
* 
* DOES NOT OVERLAY OPTION NAME IN SOUTBUF. 
*x 
$ 


SAVE REGISTERS 

DIGITS TO OUTPUT 

STARTING WITH NUMBER 0 
PRINT FLAG 

LOW-NUMBERED PARAMETER BITS 
BRANCH: ONE SET 
HIGH*NUMBERED PARAMETER BITS 
2 OIGITS NEEDED FOR HEXASC 
BIT NUMBER BASE 

NO OVERLAY OF OPTION NAME 
TEST LEFTMOST HALFWORD BIT 
BRANCH: ZERO. . 

ANY OUTPUT YET .? 

BRANCH: NO 

COMMA 

INSERT IN BUFFER 


SAVE BUFFER OFFSET 
HEXASC DESTINATION 
CONVERT BIT NUMBER 

GET OFFSET 

INCREMENT BUFFER POINTER 
INCREMENT BIT NUMBER 
HALFWORD COMPLETED 7? 
BRANCH: NO, 

CARRIAGE RETURN 

INSERT IN BUFFER 
ACCUMULATE HIGHEST BYTE COUNT 


MBF O0as80 
4BF08390 
M4BF08610 
MBF 08620 
MBFO86E30 
ABFOS6RO 
MBFUSES50 
“ear 08660 
“BF 08670 
MBFO8680 
MBF 08690 
MBFOS7OO 
MBFO8710 
MBFOS7T20 
MBFO8730 
MBFOS74u0 
MBFOS750 
MAFOB760 
MBFO08770 
maroouug 
MBFO9050 
MBFO3060 
“BFO09070 
MBFO9080 
MBFO9090 
MBFUY9100 
MBFO09110 
MBF09120 
MBF09130 
MBFO9140 
MBFO9150 
MBFOY1¢60 
MBF09170 
MBFO7180 
MBFO09190 
MBFY9200 
MBFO9210 
MBFO09220 
MBFOI230 
MBFO09240 
MBFO9250 
MBFO9260 
MBFOY270 
MBFO9280 
MBFOS290 
MBFYUS3S00 
MBFUS310 
MBF OFS20 
MBF O9330 
MBFO93a0 
MBFO9350 
MHBF0S360 
MBFO9370 


COMMON 2.5 AND 10 MB FORMATTER 


EXEC = ETPE RU5SPG 


1016 c520 9008 
101A 2333 
101C 41FOQ 1u50 
1020 C510 0020 
1024 4280 OF 194 
1028 2778 
102A 2133 
162C 41FO 1050 
1930 D190 eDn7c 
1034 O30F 
1036 BYU0 2cFC 
1034 C850 16F8 
103E 4300 1056 
1042 26Fi1 
1044 CHFO0 FFFE 
1048 485F 0000 
104C 26Fe2 
1O4E 2306 
1050 ODUUO 2CFC 
1054 c850 2C5c 
1058 2303 

UUUO 1USA 
105A Ouuod 2CFC 
1O5E 2406 
1U60 4000 1612 
1064 41FQ 1208 
14628 4250 v0F9B 
106C 4810 1616 
1070 4230 0UGE 
1074 4¥8U0 16UC 
1078 45U0 17C4% 
107C 4286 OF98 
1080 0345 0000 
1084 41FO 1002 
1088 274D 
108A 233A 
1v08C 2651 
108E C350 9002 
1092 2239 
1094 4050 1614 
1098 4¥1FO 124e 
109C 220E 
109€ 244A 


938 
Gag 
940 
941 
Fu. 
943 
944 
945 
946 
947 
948 
964 
965 
966 
967 
968 
969 
97y 
971 
972 
973 
S74 
975 
976 
377 
978 
979 
$80 
JAL 
942 
Jas 
984 
985 
986 
387 
988 
969 
990 
991 
992 
993 
994 
995 
996 
997 
998 
999 
1000 
1001 
1002 
1003 
i004 
1005 


#LST3.2B 


$LSTBe2C 


PAGE 


R2eSCKROUT+2 
$LST8.28 
R15+OPRINT 
R152 
$LSTB.A 
R7eSCKROUT+2 
$LSTB.2¢ 
R15¢qGPRINT 
ROeERRSAVE 
R15 


* TO OUTPUT CReLF TO LIST DEVICE 


* 
CRLF 


* 
$PRINT 


* 
aPRINT 


$P1 


* 
SPRT.2 


* 
$PRT3 


STM 
LOAI 
B 


AIS 
NHI 
LDA 
AIS 
BS 


ROsRSAVE 
R5eCRLESG 
$P1 


R15+AGC1 
R15e0-apc 
R5e0(R15) 
R15<ABC 
SPO 


RO RSAVE 
R5,S$0UTSUF 
$P1 


x 
RO,RSAVE 
ROG 
ROeSLINEPOS 
Ri5eTSToU 
SRSAVRET 


R1«$WASnU 
HALTS 


RO,ISITERR 
ROsNOMSG+S$VALUL 
SRSAVRET 


R4&,0(R5) 
R15 «OUTCHR 
R4,X*oOpe 
SPRT 3 
R5,1 

R5,2 
SPRT.2 
R5-+SPRTFLG 
Ri5¢TSTBRK 
$PRT.2 


RG sX"OAt 


11:37°09 01711780 


ANY OUTPUT THIS TIME ? 
BRANCH: NO, 

PRINT THE BUFFER, 

FULLWORD COMPLETED ? 

BRANCH: NO, 

ANY QUTPUT DONE ? 

BRANCH: YES, 

PRINT OPTION NAME IN BUFFER. 


RETURN 


SAVE REGISTERS 
CRe LF 
GO PRINT LINE. 


A(MESSAGE TO PRINT) 


SAVE REGISTERS 
TO PRINT OUTPUT BUFFER 


TO PRINT THE ASCII MESSAGE 
STORE REGISTERS 


RESET BUFFER 
IS DEVICE UNAVAILABLE 7 


IF YES. RELOAD REGISTERS» RETURN, 


WAS DEVICE EVER SEEN OU ? 
OUTPUT TOTAL+ TOTERR. 


AN ERROR MESSAGE ? 
IF SO, CAN 3& SUPPRESSED 7? 


BRANCH: MESSAGE IS SUPPRESSED. 


GET A MESSAGE BYTE 
OUTPUT IT 

CR ? 

MSG OVER 


TIME TO CHECK BREAK ? 
BRANCH: NO, 

TO DEFER BREAK ACKNOWLEDGE 
LOOP FOR NEXT CHAR 


LF 


MBFO093580 
MBFO09390 
MBFO9400 
MBF 09410 
MBFO9420 
MBFO9430 
MBFO9440 
MBFOI450 
MBF U9460 
MBFO9470 
MBFO9480 
MBFO9640 
MBFO?Y650 
MBF U9660 
MBF OY670 
MBFO9680 
MBFOI690 
MBFOS7OO 
MBFO9710 
MBFO09720 
MBFO9730 
MBFO9740 
MBFOY750 
MBFU9TEO 
MBFO977O 
MBFOS780 
MBF O9790 
MBFOS800 
MBF U9810 
MBF OUSS20 
MBE U9830 
MBFOS840 
MBFO9S850 
MBFO986E0 
MBF 09870 
MBFO98B0 
mBFO9890 
MBFUY990G 
MBFUY9I10 
MBF09920 
MSF 09930 
4BF 09940 
48F09950 
MBFO09960 
MBF09970 
MBFO9980 
MBF09990 
MBF10000 
MSF10010 
46610020 
MBF10030 
MBF1COaQ 
MBF10050 


COMMON 2,5 AND 10 MB FORMATTER 
EXEC = ETPE ROSPO 


1GA0 
10A4 
10A6 
LOAA 
10A€ 
1082 
1086 
1LOBA 
10BE 
10C2 
10C6 
10C3 
10cCc 
10CE 


1402 
1Uu06 
104 
100C 
1UE0 
10E4 
10€8 
10EC 
LOEE 
10F0 
1OF4 
10F6 
10F8 
1LOFA 
10FE 
1102 
1106 
110A 


110C¢ 
1110 
1114 
1116 
1114 
111E 
1122 
1124 
1128 
112A 
112C 
112E 
1130 
1132 
1136 


41Fo 
244g 
41FO 
41F0 
4040 
48FO 
4040 
4330 
40F0 
c550 
2334 
41F0 
1604 
4300 


4OFO 
310 
2714 


~ 4230 


4U10 
41FQ 
4250 
9021 
2385 
4810 
2038 
235UB 
9B21 
c410 
c5190 
4330 
cB10 
2030 


40106 
4110 
9001 
4230 
C410 
c510 
2338 
C316 
203A 
9AUG 
9004 
2172 
2082 
4BFO 
O30F 


10D2 


1002 
1248 
1614 
1608 
1688 
OFS8 
160C 
16F 3 


1042 


uABS 


1624 
16uA 


110C 
1626 
12n8 
1132 


1620 


QU7F 
0014 
10E0 
Oul2 


1620 
1350 
1132 
QUFC 
000c 


0008 


1624 


1006 
1007 
1008 
1009 
1410 
1011 
1u12 
1013 
1014 
1015 
1u16 
1417 
1618 
1019 
1020 
1021 
1022 
1023 
1024 
1625 
1u26 
1U27 
1028 
1029 
1u30 
1u31 
1432 
1033 
1034 
1035 
1u36 
1037 
16038 
1639 
1u40 
1041 
1042 
1043 
1044 
1045 
1646 
1047 
1048 
1049 
1650 
1051 
1952 
1053 
1U54 
1055 
1656 
1057 
1075 


* TO OUTPUT 


* 

OUTCHR STA 
Lb 
SIS 
BNZ 

sa0Tc,.d STH 

$OTC.1 BAL 


$0TC+2 LH 


s0TC.3 RDR 


SOTCe6 SSR 


s0TC,7 LDA 


* ROUTINE GETS INPUT RECORD 


Ki5SeOUTCHR 
R4,.U 
R15+OUTCHR 
R15*¢TSTBRK 
R4.SPRTFLG 
R1iS5e¢SBRKFLG 
R4.SBRKELG 
SRSAVRET 
R1i5c¢ISITERR 
R5e¢SBRKEND 
SPRT a4 
R1S5e¢SPRINT 
BRKMSG 
OPTINI 


18 11337309 01711780 


LF 
ASCII *NUL* 
TERMINAL CHARACTER 


RE-ENABLE BREAK ACKNOWLEDGE 


BREAK BEING ACKNOWLEDGED 
RESTORE REGISTERS, RETURN (R15) 
FORCE MESSAGE PRINT 

PRINTING "BRK TERM* MESSAGE ? 
BRANCH: YES, 

*RECURSIVE® CALL 

"BREAK TERMINATION® 

TO CMO PROCESSOR 


CHARACTER TO THE LIST DEVICE 


R1i5°OUT. SAV 
R1<IOSayve+1 
R1e4 

S$OTC.4 
R1.$PAUSE 
R15+TSTou 
SOTC.7 
R2.k1 
6eSUTC,3 
R1eSPAUSE 
S$OTC ol 
SOTC.4 
R2,R1 
RIeX*7Fe 
R1X*i4e 
SOTC.0 
R1_X*1oe 
SOTCe2 


R1-eSPAUSE 
R1-.3SETuP 
RO R11 
3es80TC,7 
R1eX*FC# 
R1ieX*0ce 
S0TC.7 
R1,8 
sOTC.5 
RORY 
ROeRIL 
7+30TC.7 
&+S0OTC.6 
R1iS:OUT.SAV 
R15 


J 


SAVE RETURN ADDRESS 


BRANCH IF NOT CAROUSEL 

ZERO $PAUSE FLAG 

ON LINE ? 

BRANCHS OFFLINE. EXIT, 

GET CAROUSEL STATUS 

BRANCH IF CHAR, IS TO BE READ 
PAUSED NOW ? 

YES+ LOOP 

NO, GO OUTPUT CHARACTER 

GET CAROUSEL CHARACTER 


DC4 ? 
DC4. SET $PAUSE FLAG. 
0C2 ? 


RESET FLAG 

SET UP FOR OUTPUT 
WAIT FOR NOT BUSY 
BRANCH IF OFF-LINE 


HDX PASLA OFF-LINE 7 

BRANCH: YES, 

BUSY ? 

WAIT FOR NOT BUSY, 

OUTPUT DATA BYTE 

WAIT FOR NOT BUSY 

BRANCH IF OFF-LINE (PASLA HANGS) 
WATT FOR NOT BSY 


RETURN 


MBF10060 
MBF 10070 
MBF1U080 
MBF 10090 
MBF10100 
MBF10110 
MBF10120 
MBF1U130 
MBF10140 
mBF10150 
MBF10160 
MBF10170 
MBF1Y¥180 
MBF10190 
MBF10200 
MBF10210 
MBF10220 
MBF10230 
MBF190240 
MAF10250 
MBF10260 
MBF 10270 
MBF10280 
MBF10290 
MBF10300 
MBF10310 
MBF10320 
MBF10330 
HBF1C0340 
MBF10350 
MBF10360 
MBF103570 
MBF10380 
M8F10390 
MBF104%00 
MBF10410 
MBF10420 
MBF10430 
MBF104%40 
MBF10450 
MBF104%60 
MBF10470 
MBF104%80 
MBF10490 
MBF 10500 
MBF10516 
MBF10520 — 
MBF1U530 
MBF10540 
MBF10550 
MBF10560 
MBF10570 
MBFiC7S50 


COMMON 2.5 AND 10 MB FORMATTER 


EXEC ~- ETPE ROSPO 


1138 
113Cc 
113E 
1140 
1144 
11438 
114A 
114C 
114E 
1152 
1154 
1156 
115A 
11i5€ 
1160 
1162 
1164 
1168 
116C 
116E 
1172 
1176 
117A 
LI7E 
1182 
1186 
1184 
118C 
118E 
1190 
1194 
1198 
119¢C 
11AG 
11LA2 
11A6 
LIAA 
LLAE 
11B2 


11B6 
11Ba 
11BE 
11C0 
11C2 
114 
11¢6 
118 
11CA 


poo 
2501 
2601 
4000 
4140 
9004 
2081 
9B04 
D390 
2792 
2338 
489606 
DEID 
9093 
2081 
SA94 
C440 
c540 
2183 
CB4o 
c540 
4330 
C540 
4330 
C540 
2534 
C546 
2136 
27b2 
4216 
43u0 
D24D 
C546 
2135 
C850 
4306 
cSbo 
4289 
4300 


D310 
D320 
2436 
6513 
2162 
2411 
0523 
2182 
2421 


2cFC 


1612 
1334 


DA10 


OA2C 
OAQF 


OO7F 
0060 


0020 
9023 
OABN 
G018 
OABO 
QUSEF 


0008 


113¢C 
113E 
2CAC 
g005 


16F8 
1U5¢€ 
OO4F 
113€ 
1144 


0A10 
CA11 


1076 
1uU77 
1078 
1079 
1U80 
1081 
1082 
1083 
1084 
16a5 
1086 
1Ua7 
las 
1089 
1uS0 
1691 
1092 
1093 
1094 
1695 
1096 
1697 
1098 
1099 
1106 
lini 
1192 
1103 
1194 
1105 
1166 
1167 
liga 
1109 
1116 
1111 
1112 
1113 
1114 
2115 
1116 
1117 
1118 
1119 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
1128 


PAGE 19 


x 


SREAD STH RO.RSAVE 
SRO. Lcs R13e1 
SRDe2 AIS R13e1 
STH R13+SLINEPOS 
SRDS BAL R4,KBREAD 
SSR RO,R4 
BT8S 6el 


ROR ROR4 
LB R9,10 


$18 R92 
B2Zs $RDe3D 
LH R9+CONWADR 


oc R9.CONWRT 
SSR R9eRS 


BTBS 81 

WOR R9gR4 
$RO-3D NHI R4 aX" 7Fe 

CLHI R4.X*60" 


BLS SRO-4 
SHI RY X*2Qe 


$RDe4 CLHI R4,X*taze 
BE OPTIN 
CLHI R4eX'18° 
BE OPTIN 
CLHI R&,X'5re 
BES SRO"! 
CLHI K4eX"08 
BNES $RD.6 
¢R0.5 SIs R132 
BM SRO 
3 $RDe2 
$RD6 STa R4sSINRUE (RIS) 
CLHI R4&.xX* 0D" 
BNES S$RD.7 
LOAI R5.CRLEMSG 
B $Pl1 
RO? CLHI R1iSsSBUFLEN-1 
BL SRDe2 
8 BROS 


11237209 01/11/80 


SAVE REGISTERS 
INITIALIZE 

INCREMENT BUFFER POINTER 
ADDRESS OF CURRENT BYTE 
Pur DEVICE IN READ MODE. 


IF BUSYe LOOP (POSSIBLE HANG) 
READ A CHAR IN R4 


GET WRITE ADDRESS 
TURN DEVICE AROUND 


WAIT FOR BUSY NOT 

ECHO RECEIVED BYTE 

REMOVE PARITY BIT 

UPPERCASE CHARACTER ? 

BRANCH: NO, 

CONVERT TO LOWER-CASE 
HASH=MARK 7? : 
BRANCH: YES, GO To CMD PROC. 
ASCIL *CANCEL* CHARACTER ? 
BRANCH: YES, 

BACKARROW, UNDERLINEs DELETE 7? 
BRANCH: DELETE LAST CHARACTER 
BACKSPACE ? 

BRANCH: NO, 

TO DELETE LAST CHARACTER 
BRANCH: NO UNDERFLOW ALLOWED, 
GET ANOTHER CHARACTER 

STORE CURRENT INPUT ByTEeE 
CARRIAGE RETURN ? 
BRANCH: NOT YET. 
OUTPUT (CR).s(LF) TO CONSOLE? RETURN. 
BUFFER AT MAX ? 

BRANCH: NOT YET, 

BRANCH: FORCE OVERLAY OF LAST CHARACT 


* SET UP FOR CONSOLE. LIST I/O DEVICES 


STCON Lb R1,10 
LB R2,1041 
LIS R3-eSMAXTO 


CLAR R1,RS 

BLS sSTC.1 

LIs Rivi 
ssTc.l CLAR R2eR5 


BLS $STC.2 
LIS R21 


GET I/0 IDENTIFIERS 
IDENTIFIER CAN BE 142239495 


BRANCH IF KB IDENTIFIER OK 
ELSE FORCE CRT 


SAME TEST FOR LIST DEVICE 


MBF10760 
MBF10770 
MBF10780 
MBF10790 
MBF19800 
MBF10810 
MBF10820 
MBF10830 
MBF10840 
MBF10850 
MBF10860 
MBF1U870 
M5F 10580 
MBF108909 
MBF10900 
MBF10910 
MBF19920 
MBF 10930 
MBF10940 
MBF1U950 
MBF 10960 
MBF10970 
MBF10980 
MBF1U990 
MBF11000 
MBF11010 
MBF11920 
MBF11030 
MBF11040 
MBF11050 
MBF11060 
MBF11070 
MBF11080 
MBF11090 
MBF11100 
MBF11110 
MBF11120 
MBF11130 
MBF11140 
MBF11150 
MBF11160 
MBF11170 
MBF11180 
MBF11190 
MBF11200 
MBF11210 
MBF11220 
MBF11230 
MBF12240 
MBF11250 
MBF11260 
MBF11270 
MBF11280 


Ee 


COMMON 2,5 AND 10 MB FORMATTER PAGE 20 11:37:09 01/11/80 


EXEC - ETPE ROSPO 


on 


11¢€C 
1100 
1104 
1108 
110C 
110E 
11E0 
11E2 
11E6 


11EA 
L1EE 
11Fu 
11F2 
11F4 
11F 6 
11FC 
1200 
1204 
1208 
120C 
1210 
1214 
1216 
121A 
121E 
1222 
1224 
1226 
1228 
122A 
122E 
1230 
1232 
1234 


1238 


123A 
123E 
1242 
1244 


1248 
124C 
1250 
1254 
1256 


D210 
p220 
0362 
4060 
0866 
2336 
9122 
4802 
DEV? 


41FO 
9310 
91ilo2 
2712 
4831 
4U30 
4831 
4U30 
482] 
4U20 
4B21 
4020 
9310 
0341 
pe4o 
46490 
0844 
2333 
9422 
SE32 
DESO 
9832 
0844 
2353 
bE3O 
oouo 
O30E 


41F0 
41F0 
16D4 
4300 


0000 
DOEO 
48FO 
46F0 
27FE 
2137 


0A10 
0A11 
OA4B 
1604 


0A10 
QA32 


1320 


QA10 
OA2A 
0Al12 
OA2C 
GA3e2 
CAGE 
UASY 
0a30 


CAB 
OAKS 
1692 


OA2ZE 


0A48B 
1238 


1320 
1042 


OABS 


1248 
acus 
17C8 
1608 


$STC,.2 $T3 


* 
$sTC.3 BAL 


ssTc.4 oc 


R1,10 

R2,10+1 
R6-CONRG2S(R2) 
R6,$LSTPAS 
R6,R6 

ESTCe3 

R2:2 

ROeIOCR2) 
ROe«CONCMD(R2) 


R15e¢SETKS 
R1,RU 

R12 

Rie2 
R3,IO(R1) 
R3«CONRADR 
R3e¢1042(R1) 
R3.CONWAOR 
R2,CONCMD(R1) 
R2,CONRD 
R2sCONC4D+2¢R1) 
R2,CON2ND 
R1,RO 
R4.CONRD2S(R1) 
R4,CONR@2S 
R4eSCONPAS 
R4.R4 

SSTC eu 

R2,.R2 

R3,R2 
R3,CONRD 
R3,R2 

R4,R4 

$STC.5 
R3,CONRQ2S 


* TO OUTPUT *?*" TO CONSOLE 


x 
QUESTN BAL 
BAL 


ert er ete aet eee 


* IF BREAK KEY 


* 

TSTBRK EQu 
STM 
LH 
OH 
sis 
BNZS 


R15sSETKB 
R15*SPRINT 
QmMsG 
OPTIN1 


REESTABLISH VALUES 


SET PASLA FLAG (LIST DEVICE) 


SKIP IF NOT PASLA 


ISSUE 2ND COMMAND (TO LIST DEVICEs«x 
ESTABLISH KEYBOARD DEVICE (& IOSAVE) 
(R1) = 1e2e4e5 $ (RO = KBIDENT) 
(R1)=4,8.16.20 

SET UP CONSOLE DEVICE READ ADDRESS 
SET UP CONSOLE WRITE ADORESS 

SET UP R/W COMMANDS 

2ND CMDs ENABLE READ CMU 

CONSOLE REQUEST To SEND 

SET PASLA FLAG (CONSOLE) 

SKIP 2ND OC IF NOT PASLA DEVICE 
ISSUE 2ND COMMAND (TO CONSOLE) 

PUT CONSOLE IN READ MODE 

READ A DUMMY CHARACTER (SET BUSY) 
CONSOLE PASLA DEVICE ? 

BRANCH! NO, 

REQUEST TO SEND (KEEP ON#LINE) 


RETURN 


SELECT KEYBOARD DEVICE 


QUESTION MARK: CRLF 
ACCEPT NEXT COMMAND 


DEPRESSEO+ GO TO *OPTIN® OR (BRKVECT)3 ELSE RETURN. 


* 

Ri4+STBRKSY 
R15eNOMSG+SVALU1 
R15 sSBRKFLG 
R1515 

STSTB.2 


SAVE REGISTERS 

(R15) = 15 IF IGNORING I/0 
(R15) = 15 IF BRK ALREADY SEEN 
LOOK FOR BREAK ? 

BRANCH: YES, 


MBF11290 
MBF11300 
mBF11310 
MBF11320 
MBF121330 
MBF11540 
MBF11350 
4B8F 11360 
MBF11370 
MBF11560 
MBF11590 
MBF11400 
MBF11410 
MBF114%20 
MBF124%30 
MBF11%46 
MBF12450 
mBF11460 
MBF114%79 
MBF114%80 
MBF114%90 
MBF12500 
MBF11510 
MBF11520 
MBF11530 
MBF11540 
4BF12556 
MBF11560 
MBF11570 
MBF11580 
MBF11590 
MBF11600 
MBF11610 
4BF121620 
MBF11630 
"BF11640 
MBF11650 
MBF12660 
MBF11670 
MBF11680 
MBF11690 
MBF11700 
MBF12710 
MBF11720 
MBF11730 
MBF11740 
MBF11750 
MBF117696 
MBF11776 
MBF11780 
MBF11790 
MBF11860 
MBF11410 


COMMON 2,5 AND 10 MB FORMATTER 


EXEC = ETPE ROSPO 


1258 
125A 
125€ 
1262 


1264 
1268 
126C 
1270 
1272 
1276 
1278 
127C 
1280 
1284 
1288 
128A 
128C 


1290 
1292 
1296 
1294 
129€ 
12A0 
12A4 
12A8 
12AA 
12AE 
1280 


12B4 
1286 
12BA 
128C 
128€ 
12C2 
12C4% 
12C8 
12CA 
12c¢ 
12CeE 
1202 
1204 


1208 
120A 
12DBE 
12E2 


24FO 
4OFQ 
O1E0 
O30F 


48E0 
D3Fo 
C5F0 
2333 
CSFO 
4330 
SOEF 
4280 
C3FO0 
4330 
9BEF 
OSFF 
4230 


0000 
24FF 
4OFG 
480 
4230 
24E0 
48FO 
40E.0 


O25F 


G1FOQ 
16DA 
4300 


SDEF 
C3F0 
2134 
SBEF 
4300 
SBEF 
C8F0 
26F 1 
2031 
SOEF 
C3FO0 
2038 
4300 


241F 
4520 
4330 
4600 


1696 
2c4s 


OA2A 
0A10 
9002 


09005 
1284 


1258 
0020 
12586 
1258 
1290 
1608 
1614 
125E 


16U6 
16U6 


1642 


OARS 


0020 


1258 


8000 


0020 


1290 


17¢8 
1310 
1602 


1182 
1153 
1184 
1185 
1186 
1167 
1184 
1189 
1190 
1191 
1192 
1193 
1194 
1195 
1196 
1197 
1198 
1199 
1200 
1201 
1202 
12¢3 
1204 
1265 
1206 
1207 
12¢8 
1209 
1210 
1211 
1212 
1213 
1214 
1215 
1216 
1217 
12186 
1219 
1220 
1221 
1222 
1223 
1224 
1225 
1226 
1227 
1228 
1229 
1230 
1231 
1232 
1223 
1234 


* 
STSTB.1 


$TSTB.1A 


* 
sTST8,2 


$TS7TB,3 


* 
$TST8.4 


* 
¢TSTB.9 


$TSTS.6 


$TSTB8.7 


* SEE LF 
* 
TSTDU 


R150 
R15+BRKVECT 
Ri4eSTBRKSV 
R1iS 


R14,CONRADR 
R15-+I0 
R1592 
STSTB.3 
K15e5 
$TSTB.S 
R14eR15 
8.5TSTB.1 
R15«X*2gt 
STSTB.1 
R14.R15 
R15eR15 
STSTBel 


* 
R15e15 
R15+S$BRKFLG 
RiSsSPRTFLG 
STSTB.1an 
R140 
R15+BRKVECT 
R14 e¢BRKYECT 
R15 
R15+SPRINT 
BRAMSG 
OPTINI 


R14¢R15 
R15«X*age 
STSTB.6 
R14eR15 
$TSTB.1 
R1gyR15 
R15sX*so00? 
R15e1 
STSTB.7 
R14eR15 
R15«Xtaoe 
$TSTB.6 
$TSTB.4 
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CANCEL BREAK VECTOR 
RELOAD REGISTERS+ 
RETURN TO CALLER. 


READ SIDE ADDRESS FOR TERMINAL 
CONSOLE ID CODE 


BRANCH: TTY 
BRANCH: MICRO-1/0 BUS 
BRANCH: BSY = NO BRK 


BRANCH: NO FRERR = NO BRK 


BRANCH: NONZERO CHAR = NO BRK 
IT IS BREAK 


SET FLAG 
PRINTING NOW ? 
BRANCH: YES. 


SPECIFIED VECTOR 
CANCEL VECTOR 
BUT TAKE IMMEDIATELY IF NON-ZERO. 


"BREAK TERMINATION® 


BRANCH: BRK. 

IF BRK QUEVED, SEE IT NEXT TIME, 
BRANCH$ NO FRERR = NO BRK 

READ BREAK CHAR 


BRK KEY STILL DOWN ? 
BRANCHSs YES, 
GO SERVICE BREAK 


CURRENT LIST pEVICE IS OFF-LINE (R1 & CC NON-ZERO IF OFF) 


LIs 
CLH 
BE 
LH 


Riis 

R1.MOmMs6+syALU1 IGNORING 1/0 7 

$IS.DU BRANCH: CONSIDER AS Du, 
RO+SCONPAS 


MBF11820 
MBF11830 
MBF11840 
MBF11650 
MBF11860 
MBF13870 
MBF11880 
MBF11890 
MBF11900 
MBF11910 
MBF11920 
MBF11930 
MBF11949 
MBF 112950 
MBF 11960 
MBF11970 
MBF11980 
MBF119990 
MBF12900 
MBF12010 
MBF1L20920 
MBF12030 
MBF12040 
MBF12950 
MBF12060 
mBF12070 
MBF12080 
MBF12090 
MBF12100 
MBF1i2110 


MBF12120. 


MBF12130 
MBF12140 
MBF12150 
MBF12160 
MBF12170 
MBF12180 
MBF12190 
MBF12200 
MBF12210 
MBF12220 
MBF12230 


MBF12240 © 


MBF12250 
MBF 12260 
MBF 12270 
MBF12260 
MBF12290 
MBF12300 
MBF12510 
MBF 123520 
MBF12330 
MBF12390 


COMMON 2.5 ANO 10 MB FORMATTER 
EXEC = ETPE RUSPO 


12E6 
12EA 
12EE 
12F0 
12F4 
12F6 
12FA 
12FC 
12FE 
1300 
1302 
1306 
1304 
130C 
130E 
1310 
1312 
1316 
131a 
141C 


131€ 


0310 
D410 
2333 
4800 
9112 
4821 
9021 
211A 
0800 
2336 
c4l1lo 
c510 
2333 
2410 
2302 
2511 
4300 
06u1 
4udg 
OBL 


O30F 


1608 
gA16 


1644 


OAGE 


QUFC 
oo0oc 


1616 


1616 


0A10 
1606 


0A10 
1604 


OAQA 
OAZE 
1600 
1602 
1344 


QA48 


162A 
1608 


oA10 
OAZ1 


1235 
1236 
1237 
1238 
1239 
1240 
1241 
1242 
1243 
1244 
1245 
1246 
1247 
1248 
1249 
1250 
1251 
1252 
1253 
1254 
1255 
1256 
1257 
1258 
1259 
1260 
1261 
1262 
1263 
1264 
1265 
1266 
1267 
1268 
1269 
1270 
1271 
1272 
1273 
1274 
1275 
1276 
1277 
12748 
1279 
1292 
1293 
1294 
1295 
1296 
1297 
1298 
1299 


sTSTOUel 


$NOT.DU 


$IS.DU 
SOUCX 
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RirIOSAyeri 
R1,10 
$TSTOU,1 
ROeSLSTPAS 
R1e2 
R2ePASLADR-4(R1) 
R2,R1 
1eS$IS.DY 
RO.RO 
SNOT.OU 
R1,XtFce 
R1,.X*Oc* 
$IS-DuU 

R1,U 

S$OUeX 

R1,1 
RO,SWaSDU 
ROeRL 
RO«SWASDU 
R1i-k1 


11237309 01/11/80 


LIST DEVICE ID 

SAME AS CONSOLE DEVICE 7? 

BRANCH: YES, 

NON#ZERO IF LIST DEVICE ON PASLA. 


SREAD SIDE? ADDRESS 
GET DEVICE STATUS 


DEVICE ON PASLA ? 


PASLA OU IF BSY+EX SET HERE 
BRANCH: DU. 


GET OLD FLAG 


ACCUMULATE 

SET CC <> 0. TF DU 
OR Cc = 0 IF NOT DU 
RETURN 


* TO OIRECT INPUT AND oUTPUT To CONSOLE DEVICE 


SETKE LB 
STB 
BR 


* TO RESELECT USER'S 170 CHOICE 


x 
SETLST 


LH 
STH 
BR 


RO.IO0 
ROsIOSAVEF1 
R15 


RO,IO 
RO,eICSave 
R15 


GET KEYBOARD DEVICE 
SET LIST TO KEYBOARD 
RETURN 


RETURN 


* TO PUT KEYBOARD DEVICE IN READ MODE 


* 
KBREAD 


* LIST OEVICE 


* 
eSETuP 


ROeCONRADR 
RO.CONRD 
RO«SINK 
RO, SCONPAS 
* 

S$KBRel 
RO.CONRQ2S 
R4 


SET UP ROUTINE 


R1i«eSET.RTN 
R1-1lOSayvE+1 
R12 

RO,IOCR1) 

RO ONC4D-1(R1) 


Oc CONSOLE = REAO COMMAND 

READ A DuMMY CHARACTER (SET BUSY) 
PASLA ? 

FOR SPECIAL KB DEVICE 

NO»e BRANCH TO EXIT 

YES+ OC (REQUEST TO Senay 

RETURN 


GET LIST DEVICE IpENTIFIER 
HW INDEX 
GET LIST DEVICE WRITE ADDRESS 


MBF12350 
MBF1¢3609 
MBF12370 
MBF12390 
MBF12390 
MBF12400 
MBF124%19 
MBF124%20 
MBF12430 
MBF12440 
MBF12450 
MBF12460 
MBF12470 
MBF124%80 
MBF12490 
MBF1¢500 
MBF12510 
MBF1¢520 
MBF12530 


maeea Dhan 


view seer 


MBF12550 
MBF12560 
MBF12570 
MBF 12560 
MBF12590 
MBF12600 
MBF12610 
MBF12620 
MBF 12630 
MBF12640 
MBF12650 
MBF12660 
MBF12670 
MBF12680 
MBF12690 
MBF12700 
MBF12710 
MBF12720 
MBF12730 
MBF12740 


MBF12750 _— 


MBF12760 
MBF12770 
MBF12780 
MBF12790 
MBF12920 
MBF12930 
MBF12940 
MBF12950 
MBF 12960 
MBF12970 
MBF1I2980 
MBF12999 


COMMON 2.5 AND 10 MB FORMATTER 


EXEC - ETPE ROSPO 


1362 
1366 


1368 
136¢ 
136E 
1372 
1376 
1374 
137C 


L37E 
137E 
1382 


1384 
1588 
138C 
1390 
1392 


1394 
1398 
139C 
139C 


13A9 


13A4 
13A6 
13AA 
13AA 


13AE 


1382 
1335 
13BA 
13BA 
133E 
13c0 


13C4 


13C8 
13cc 
13CE 
1352 
1306 
1308 


4810 162A 
0301 


OSEO 2C54 
2400 
C810 O04E 
4001 0000 
4001 0080 
2712 
2215 


4800 15F8 
2333 


c800 1438 
C810 O7FE 
4001 90bD0 
2712 
2213 


CB8EO 3000 
c8F0 155¢ 


BOEO 0034 
DOEO 9030 


24E£0 
C8FO 14F2 


H0E0 C03C 
COEO 0038 


C8E0 3000 
C8FOG 156C 


4800 15F8 
2133 

DOEO O04C 
0000 13c4 


DOEO 0048 


40E0 009A 
2416 
ceoo 1558 
4001 909C 
2712 
2213 


1300 
1301 
1302 
1393 
1304 
1305 
1306 
1307 
1308 
1309 
1310 
1311 
1312 
1313 
1314 
1315 
1316 
1317 
1318 
1319 
1320 
1321 
1322 
1323 
1324 
1325 
1326 
1327 
1328 
1329 
1330 
1331 
1332 
1333 
1334 
1435 
1336 
1337 
1338 
1339 
1340 
1341 
1342 
1343 
1344 
1345 
1346 
1347 
1348 
1349 
1350 
1351 
1352 


ROR ROE EK ORK 


LDA 
BR 


R1+SET.RIN 
R1 


* LOW CORE SET UP ROUTINE 


* 
LCORE 


sLCOR1 


s_COR2 
sLCORS 


$SLCORSA 


$LCOR4 


R14eSR14SAV 
RO,0 
R1isX"4Es 
RO,Q(R1) 
ROX*80#{R1) 
Rie2 

$LCORI 


ApCc=2 
RO,MODZe 
$LCOR2 


ROsSXE32 
R1,1023%2 
ROeX"DOe (RL) 
R12 

SLCORS 


Ri4eX*soog? 
R15+SERaF2 


- ADC2 


R14eX*3que 
R14+X*30? 


R1400 
R15«SERRF3 
Aoc-2 
R14eX*3cr 


R1i4eX*3e8 


R149X*30008 
R15*SERRF1 
ADC-2 
RO,M0032 
SLCORSZA 
R14eX4ce 

* 


Ri4eX*4sge 


RiGgeX*Sar 
R114 
RO«SERRES 
RON*9C8(R1) 
Ri,2 

SLCOR4 


11:37:09 01/11/7890 


RETURN 


SAVE REGISTERS 


ZERO MEMORY FROM x*0000'-x*OO4F® 
ZERO MEMORY FROM X*0080"-X*O0CF* 


SERIES 32 ? 
BRANCH: NO, 


32-BIT I/0 HANDLER 
FOR MAX 1/0 SERVICE TABLE 


VECTORS TO MEMORY X*00D0*-X*O8CE® 
ARE ZERO FOR SERIES 16 


ARITH FAULT, MALFUNCTIONe ONLY. 
ILLEGAL INSTRUCTION HaNOLER 

FOR SERIES 16 

FoR SERIES 32 


TO ZERO MMF BIT IN NEW PSW 
MACHINE MALFUNCTION NEW LOC 


FOR SERIES 16 
FOR SERIES 32 


ARITH FAULT, MALFUNCTION: ONLY. 


BRANCH: PROTECT X*50* SEQUENCE 
FIXED-POINT DIV FAULT HOLRe S26 
ARITHMETIC FAULT HDOLR, S32 

SVC NEW PSW 


SVc INTERRUPT HOLR 
SVC INTPT NEW LOC?S 


PO ALL 16 


MBF13000 
MBF13010 
MBF13920 
MBF15030 
MBF130480 
MBF15050 
MBF15060 
MBF13070 
MBF13080 
MBF13090 
MBF13100 
“BF15110 
MBF13120 
MBF13130 
MBF15140 
MBF13150 
MBF19160 
MBF13170 
MBF1°180 
MBF15190 
MBF15200 
MBF15210 
MBF13220 
MBF13230 
MBF13240 
MBF 13250 
MBF13266 
MBF13270 
mBF13280 
MBF13290 
MBF13500 
MBF13510 
MBF13320 
MBF15330 
MBF15340 
MBF13350 
MBF13560 
MBF13570 
MBF13380 
MBF13390 
MBF15400 
MBF15410 
MBF13420 
MBF15430 
MBF134%40 
MBF13450 
MBF15460 
MBF13470 
MBF13480 
MBF15490 
MBF13500 
MBF15510 
MBF 13520 


a a aa aay ae a area 3:3 


COMMON 2.5 AND 10 MB FORMATTER 
EXEC - ETPE ROSPO 


13504 
130E 
13DE 
13£2 


135E4 
13E8 
L3EC 


13F0 
L3F4 
13F8 


15FC 
13FE 


1402 
1406 
1408 


140C 


1410 


1414 
1418 


141C 
1420 


1424 
1428 


142A 
142A 
142€ 
1430 
1434 
1436 


1438 
143A 
143C 


C840 


4810 
2130 


4049 
C8FQ 
DOEO 


C&Fec 
DOEO 
4300 


24FQ 
UVFO 


4049 
2748 
4649 


C8FO 
DOEO 


Cc8FO 
DOES 


C&FO 
DOEO 


D1EO 
O30F 


0000 
9F23 
D1E0 
24A0 
2306 


S5AA 
50A0 
15F0 


2008 


15F6 


0040 
0086 
0084 
1554 
60868 


1568 
0090 


1550 
a0cs 


2c54 


203Cc 


0040 


1353 
1354 
1355 
1556 
1357 
1358 
1559 
1360 
1361 
1362 
1363 
1364 
1365 
1366 
1367 
1368 
1569 
1370 
1371 
1372 
1573 
1574 
1375 
1376 
1377 
L378 
1379 
1380 
1361 
1362 
1383 
1384 
13585 
1386 
1387 
1388 
1389 
1390 
1391 
1417 
1418 
1419 
1420 
1421 
1422 
1423 
1424 
1425 
1426 
1427 
1428 
1429 


* SET UP 


SET UP 


* 


$LCORS 


* 


* 
S_LCORXIT 


* 
* 
* 
* 


$x116 


$x1I32 
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RY sPSWSAVE+X*FF*axtFFOo%s+8 PPF REG SAVE AREA 
ADC=2 

R1+MOD3e 

$LCORS 


ADDITIONAL LOw CORE FOR 16-BIT MACHINE ONLY 


STH 
LHI 
STA 


LHI 
ST™ 
6 


R4,X*2a8 REG SAVE POINTER 

R15¢SERRFSA 

R1igeX*oce $16 FLOAT=POINT INTPT NEW PSW 
R15e3X116 S16 I/0 HANDLER 

R14eX*4y? S16 EXTERNAL INTPT NEW PSW 
SLCORXIT RESTORE R14:R15s RETURN (R15) 


ADDITIONAL LOyw CORE FOR 32-BIT MACHINE ONLY 


ENOC 
LIS 
ST# 


STH 


SIS 
STH 


LDAI 
STM 


LDAI 
STM 


LOAT 
STM 


LM 
BR 


IFZ 


R150 
R15eX*4o" ZERO MALFUNCTION STATUS WORD: $320 
R44 X*868 S32 PPF REG SAVE POINTER 
R4,& 
R4usX* Bye S32 PPF PSW SAVE POINTER. 

FOR S$3200+ IS ONE 24-81T ADDRESS. 
R15+SERRFS 
R14eX*ggr SYSTEM QUEUE INTPT NEW PSW 
R1S+SERRF5 
R14eX*9o! RELOC/PROTECT INTPT NEW PSW 
R15 eSERRF7 
R14+X*cee DATA FORMAT FAULT NEW PSH 
R14+fR14SAV RESTORE REGISTERS 
R15 AND RETURN, 


HHI RE EE REE ERE EEE ER EOE ES EK EEE EERE K 
EXTERNAL INTERRUPT HANDLER 


ADC-2 
ROsINTSAV FOR 16-BIT PROCESSOR 
R2sR3 ACKNOWLEDGE THE INTERRUPT 
R14eXt4ge OLD PSWe EXTERNAL INTERRUPT 
R10¢0 AVOID SERRF6& ON SERIES 16 
SXI1GA 

FOR 32=-BIT PROCESSOR 
R1OeR19 PSw AFTER INTERRUPT 


K*50A0",Z0INTPSW) * ST R1LOeINTPSW 


MBF15530 
MBF15560 
MBF13550 
MBF13560 
MBF13570 
M8F13580 
MBF13590 
MBF13600 
MBF15610 
MBF13620 
MBF15630 
MBF13640 
MBF15650 
MBF13660 
MBF13567T0 
MBF13680 
MBF15690 
MBF13700 
MBF15710 
MBF13720 
MBF13730 
MBF13749 
MBF15750 
MBF13760 
MBF19770 
MBF1i3740 
MBF13790 
MBF13800 
MBF13810 
MBF15820 
MBF13830 
MBF136a0 
MBF13850 
MBF15860 
MBF13870 
MBF15680 
MBF13890 
MBF15900 
MBF15910 
MBF14%170 
MBF14180 
MBF14190 
MBF14200 
MBF14210 
MBF1L4H220 
MBF14230 
MBF1I42u0 
MBF14250 
MBF14260 
MBF14270 
MBF 14280 
MBF14290 


ey 


COMMON 2.5 ANDO 10 MB FORMATTER 


EXEC - ETPE ROSPO 


L43E 
1440 


1442 
1446 
144A 
L44E 
L44E 


1452 


1456 
1458 
145C 
1460 
1462 
1464 
1466 
1468 
146C 
1470 
1472 
1474 
1478 
147C 


1489 
1482 
1486 
1488 
1468 
14A8c 
1490 
1492 
1496 
1498 
149C 
149E 
14A2 
1484 
14A8 


L4AC 
14AC 


veEO 
O8F1 
Q0U0 1442 


4020 15FA 
b230 15FC 
DOEO 15£0 
4320 OA2A 


43350 14AC 


2450 
4865 17CC 
4210 14BA 
0562 
2333 
2652 
227 
4865 17£2 
4330 145A 
9051 
SOA4 
C4A0 QOOF 
D4A5 17F6 
4230 14HE 


O8&1F 
48LG 0A52 
O&FE 


NOEG 15E8 
4800 15F8 
213C 
C510 OF7C 
2187 
C510 OF96 
2384 
Divo acrC 
2303 
D100 2D3c 
c200 1568 


0000 144C 


4800 15F6 


1430 
1431 
1432 
1434 
1438 
1439 
1440 
1441 
1442 
1443 
1445 
1446 
1447 
1448 
1449 
°450 
1451 
1452 
1453 
1454 
1455 
1456 
1457 
1458 
1459 
1469 
1461 
1462 
1443 
1464 
1465 
1466 
1467 
1468 
1469 
1470 
1471 
1472 
1473 
1474 
1475 
1476 
1477 
1478 
1479 
1481 
1482 
1483 
1484 
4485 
1486 
1487 
14488 


PASE 25 112373609 01711/80 
LDAR R14sRO0 OLD PSW 
LDAR R15,R1 OLO LOC 
SxI16A Eau * 
ELSE 
ENDC 
STH R2e1lNTOEV INTERRUPTING DEVICE ADDRESS 
STB R3eINTSTA INTERRUPTING DEVICE STATUS 
STM R14-+OLDPSW 
CLH R2,CONRAODR CONSOLE READ-SIDE INTERRUPT ? 
IFZ SKBINT=-1 
ELSE 
BE RETOPSW IGNORE (FOR 1610+¢20,.50) 
ENOC 
* 
LIS R5,0 
$xIl LH R6,DEVSADR(R5) GET DEV ADRS FROM TABLE 
BM SERRFY TABLE OVERFLOW, 
CLAR R6,R2 COMPARE INTERRUPTING DEVICE ADDRES 
BES $xI2 
AIS R52 
BS SXT1 
$xI2 LH RE WEVINT(RS) GET INTERRUPT HANOLER ADDRESS 
Bz SERRF4Y INTERRUPT NOT EXPECTED 
SRLS RSeli IF SERIES 32s 
SRLS R104 INTERRUPT LEVEL MUST gE CORRECT 
NHI R10915 
CLS R1OsINTLVLERS) CHECK PROPER INTERRUPT LEVEL 
BNE SERRFE SERI€S 16 ZERO ALWAYS MATCHES, 
* 
LDAR R1,R15 OLD LOC AT INTERRUPT 
LH R14 —ePSwo SPEC*D AS x*30F0? 
LOAR Ri5eRGE INTERRUPT VECTOR 
IFZ Agccea 
SsT™ R1iG*NEWPSwW PSW TO ENTER SERVICE ROUTINE 
LH RGeMODZ2 SERIES 32 7 
BNZS S$XI4 BRANCH: YES, 
CLAI R1,*TIMER WAS IN TIMER ROUTINE 9? 
BLS XI BRANCH: NO, 
CLAI RileSTIMKT FINAL CHECK: 
BNLS $xXI3 BRANCH: NOT IN TIMER ROUTINE, 
LM ROsRSAVE RELOAD REGISTERS SAVED BY TIMER 
BS SXI4 
S$XI3 LM ROsINTSAV RELOAD REGISTERS SAVED BY SXI16 
SX14 LPSW NEwWrSwW AND GO TO SERVICE ROUTINE. 
ELSE 
ENDC 
* 
* senraet®owmw et eww a FF ee Been were aewe B22 wee nessa SQranmnannawe - 


* TO RETURN ON 

* 

RETOPSW EQU 
IFZ 
LH 


OLD PSW FOLLOWING I/9 INTERRUPT 


* 
ANC-2 
RO.MODS2 


SERIES 32 7 


MBF 14500 
MBF14510 
MBF14520 
MBF14530 
MBF14380 
MBF14390 
MBF144%00 
MBF144410 
MBF14420 
MBF14430 


MBF 14460 
MBF14470 
MBF14480 
MBF1+#490 
MBF14500 
MBF14510 
MBF14520 
MBF19530 
MBF14549 
MBF14550 
MBF14560 
MBF14570 
MBF145a0 
MBF14599 
MBF14606 
MBF14610 
MBF14620 
MBF14630 
MBF14649 
MBF14650 
MBF14660 
MBF14670 
MBF14680 
MBF14690 
MBF1%700 
MBF14710 
MBF14720 
MBF14730 
MBF14740 
MBF14750 
MBF14%760 
MBF14770 
MBF14780 
MBF14790 
MBF14810 
MBF1i4620 
MBF14830 
MBF14840 
ABF14850 
MBF14 860 
MBFi4870 
MBF1 4880 


COMMON 2.5 AND 10 MB FORMATTER 
EXEC - ETPE ROSPO 


14B0 
14B2 


14B6 


14BA 
14BC 


148E 
14C0 
14C4 
14C8 
14CC 
14CE 


14De2 
1406 
14DA 
14DC 
14E0 
L4E4 
14E8 
L4HEC 
14EE 


14F2 
14F4 
14F8 
14F8 
L4FC 
14FE 
1500 
1502 
1504 
1506 
1504 
150C 
1506 
1512 


1516 
151A 
151E 
1520 


2133 
D190 


0000 
c200 


2464 
2362 


2466 
C660 
4060 
4810 
95uU1 
41F0 


4860 
C560 
215A 
OBAA 
v2A0 
4060 
41FO 
16AE 
4300 


95DD 
01E0 


4800 
2330 
5000 
15F4 
5800 
0040 
4330 
5u00 
15F4 
4210 
4300 


D1EO 
400Q 
2400 
40UQ0 


203C 


14B6 
15E£0 


4630 
164E 
uAS2 
vE22 


164E 
4636 


162C 
16C3 
160C 
1042 


OABS 


0020 


15F8 


1524 
152A 
153A 


0038 
15F6 


LSF4 


1489 
1490 
1491 
1492 
1493 
1494 
1495 
1496 
1497 
1498 
1499 
1500 
1501 
1502 
1503 
1564 
1305 
1506 
1597 
1508 
1509 
1510 
1511 
1312 
1513 
1514 
1515 
1516 
1517 
1518 
1519 
1520 
1521 
1522 
1523 
1524 
1525 
1526 
1527 
1528 


1529 


1530 
1531 


1932 
1533 
1534 
1535 
1936 
1537 
1538 


PASE 26 


BNZS RETOPSW1 
LM RO,INTSAV 
ENOC 

RETOPSW1 EQU * 
LPSw OLOPSwW 


11237309 01711760 


BRANCH? NO, 
RESTORE USER REGISTER, SERIES 16 


* EXTERNAL INTERRUPT ERROR ROUTINE 


x 
SERRFEY LIs R634 
BS XTERR1 


ERROR TTF4 


* DEVICE INTERRUPTED IN WRONG INTERRUPT LEVEL 


* 
SERRFG LIS R696 


XTERR1 OHI R6eC*FO?S 
STH R6eERRNO 
LH H1-PSw2 


EPSR RO.RI 
BAL RIStERRALL 


LH R6yERRNO 

CLHI R6sCtFEs 

BNES XIERR2 

LB R1OsHEXTAB(R10) 
S13. - R1OERRLVL 

STH R6eISITERR 

BAL R15e$PRINT 

DAC INTLVLM 

OPTIN1 


SPURIOUS INTERRUPT HANDLERS 


* 
* 
* MACHINE MALFUNCTION INTERRUPT TRAP 
* 
% 


ERRF3 EPSR R13eR13 


L™ R14¢eXtane 
IFZ ADC-2 
LH RoO.MOD32 
BZS $MM16.1 
oc x*5000',2(MMSW) 
oc x?*5800",x'oo4on? 
B2 SMMel 
oc x*5000*,Z(MMSW) 
aM SMMe2 
3 SMMeS 
*x 
$MM16.1 LM R1i4eX*3aRe 
ST Ri3s«MMSw+2 
LIs RO,0 


STH ROMS 


ERROR TTF6 
CONVERT TO ASCII 


SPEC*D AS x*30FO0" 

ENSURE USER REGISTER SET 
"ERROR TTFN*s "DEV DOD STA SS*t 
*PSwW PPPP LOC LLLL?® 


WRONG INTERRUPT LEVEL ? 
BRANCHS NO, 

CONVERT LEVEL TO ASCIT 
ANO STORE IN MESSAGE 
FORCE PRINT 


"INTERRUPTED IN LEVEL N* 
ENTER COMMAND MODE. 


$32 MALFUNCTION OLD PSW 
SERIES 32 ? 

BRANCH: NO,.,. 

* ST R1i3eMMSW 

* | ROX*40!* 


BRANCH: NOT $3200 
* ST ROMMSW 


BRANCH: $3200 POWER FAIL 
BRANCHS GTHER $3200 MALFUNCTION 


$16 MALFUNCTION OLD PSw 
PSw STATUS AT INTERRUPT 


LEADING ZEROS 


PSw AT ENTRY To HANDLER & SAME CC 


MBF1489¢ 
MBF1%900 
MBF14910 
MBF149920 
MBF19930 
MBF149a0 
MBF14950 
MBF14960 
MBF14970 
MBF14980 
MBF14990 
MBF12uU00 
MBF15010 
MBF15020 
MBF12030 
MBF1504a0 
MBF15050 
MBF15060 
MBF12970 
Mo6F15080 
MBF159090 
MBF15100 
MBF15110 
MBF129120 
MBF15130 
MBF15140 
MBF12150 
MBF19160 
MBF15170 
MBF12180 
MBF15190 
MSF15200 
MBF15219 
MBF15220 
MBF15230 
MBF1S240 
MBF1S250 
MBF15260 
MBF15270 
MBF1>280 


MBF15290 


MBF15500 
MBF15510 


MBF15520 
MBF 15330 
MBF15340 
MBF19350 
MBF1i5360 
MBF15570 
MBF1i5380 


- ETPE RCSPO 


COMMON 2, 
EXEC 
1524 c300 
1523 2339 
152A c8&u0 
152E 4000 
1532 4810 
1536 9501 
1538 2200 
153A c810 

153E 
153E 4010 
1542 4800 
1546 2333 
15486 5019 
154A 00°C 
0000 
154C 2463 
154E 2504 
1550 2467 
1552 2302 
1554 2468 
1556 230€ 
1558 2469 
155A 230C 
155C 2462 
15S5E 
155E C820 
1562 23086 
1564 


5 AND 10 MB FORMAITER 


oo001 
153A 
OU3E 


gA52 


14F2 


O03E 
15F8 


154C 


0030 


1539 
1540 
1541 
1542 
1543 
1556 
1557 
1558 
1359 
1560 
1561 

362 
1563 
1564 
1565 
1566 
1567 
1568 
1569 


1570 
1571 
1573 
1574 
1575 
1576 
1577 
1578 
1379 
1580 
1581 
1582 
1583 
1584 
1585 
1586 
4557 
1588 
1589 
1590 
1591 
1592 
1593 
1594 
1595 
1596 
1597 
1598 
1599 
1609 
1661 
1662 
160% 
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SMMeol THI R13«X*o001? 
BZs 3éMM.3 
shM.2 LHI RO.SMM.3 
STH ROeX'SE! 
ELSE 
ENDC 
LH R1,PSw2 
EPSR RO,R1 
BS * 
* 
* AT THIS POINTs WE KNOW IT IS NOT 
* POWER RESTORE REPORTS "POWER FAIL 
* 
SMM eS LOAI RisSERRFS 


IFZ ADC-2 
STH R1isgxX*3E¢ 


LH RO.MOD32 

BZS SMM.3A 

bc X*5010*.x*G035C* 
SMMOSA EQU * 

ELSE 

ENDC 

Lis R63 

BS $BS.ComM 


* 


* 
SERRFET LIS 


* 


* 
SERRFS LIS 
$25-eCOMM BS 


DATA FORMAT FAULT INTERRUPT 


R6e7 
BS SBS5.-COMM 


SYSTEM QUEUE SERVICE INTERRUPT 


R6.8 
comPh 


* SUPERVISOR CALL INTERRUPT 


* 
SERREO LIS 


* 
* 


* 
SERRFQ LIS 


¥ 
* 


R6s9 
BS COMP 


ILLEGAL INSTRUCTION INTERRUPT TR 


R6.2 
IFZ Aoce2 
LHI R2eX* Soe 
ENDC 
BS COMM 
IFZ ADC?2 


FLOATING-PT ARITH FAULT INT TRAP 


11:37:309 01/11/80 


POWER FAIL ? 
BRANCH: NO, 


CHANGE INTERRUPT NEW LOC 


SPEC*D AS x*30F0°* 
RE#ENABLE MALFUNCTION 
AND NAIT FOR POWER RESTORE. 


A POWER FAIL. 
* aS REASON FOR INTERRUPT. 


RESTORE INTERRUPT VECTOR 


* ST RieX*3C* 


ERROR TTF3 


ERROR TTF? 


ERROR TTF 


ERROR TIF9 


AP 


ERROR TTF2 


WHERE TO FIND OLD PSW. SERIES 16 


(16 BIT PROCESSOR) 


MBF15399 
MBF194%00 
MBF1>54109 
MBF15420 
MBF129430 
MBF15560 
MBF1°570 
MBF15580 
MBF15590 
MBF15600 
MBF15610 
MBF15620 
MBF15630 
MBF15640 
MBF15650 
MBF 15660 
MBF15670 
MBF1>5680 
MBF15690 


MBF1i5700 
MBF15710 
MBF12730 
MBF15740 
MBF1iS750 
MBF15766 
MBF1577T0 
MBF15780 
MBF157990 
MBF15800 
MBF15810 
MBF15820 
4BF15830 
MBF15840 
4BF155850 
MBF1i5860 
4BF15870 
MBF15880 
MBF15890 
MBF15900 
4BF19910 
“8F15920 
MBF15930 
MBF159480 
MBF15950 
MBF15960 
MBF15970 
MBF19980 
4B8F15990 
MBF16000 
4BF16010 
MB8F1G6020 
MBF 169030 


COMMON 2.5 AND 10 MB FORMATTER 
EXEC = ETPE ROSPO 


1564 


1568 
156A 


156C 


156C 
156E 
156E 


1572 
1572 
1576 
1578 
157C 
1S7E 


1582 
1586 
158A 
158E 
1592 
1596 
1598 
159C 
15A0 
15A2 
15A6 
LSAA 
15AE 
1582 
1586 
15BA 


15BE 
15BE 
15¢C2 
15¢6 
15C8 
15CA 


c8&e0 


2465 
2304 


246) 


cs2a 


0060 


46U0 
2136 
C566 
2333 
D1E2 


DOEO 
C660 
4060 
4060 
4810 
9501 
41EG 
41F 0 
2034 
41F 0 
41F0 
4866 
4060 
41E0 
c560 
42306 


4810 
4800 
2333 
5816 
15F4 
0000 


0028 


0048 


1572 
15F8 
0003 
g000 


15€0 
4630 
164E 
160C 
0A52 


1186 
1208 


1036 
vDE2 
164E 
160C 
oED4 
4633 
OABS 


15F6 
15F8 


15¢€C 
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SERRFSA LHI R2,X"28e WHERE TO FIND OLD PSW, SERIES 16 
ENDC 
* RELOCATION/PROTECTION INT TRaP 
* 
SERRFS LIS R6,9 
BS Comm 


ERROR TTF5 


* ARITHMETIC FAULT INT (32-BIT PROCESSOR) TRaP 
1FZ2 A0C=-2 

* FIXE0-PT OLVIDE FAULT INT (16=BIT PROCESSOR) TRAP 
ENOC 

* 

SERRFE1 LIS RGel 
IFZ2 anc-2 
LHI R2.xX*4ge 


ERROR TTF1 


WHERE TO FIND OLO PSwW, SERIES 16 


ENDC 
x 
* ERROR TTFN PRINTOUT 20UTINEe EXPECTS USER REGISTER SET SELECTED. 
COMM EQU * 
IF2 AdC=-2 
LH RO.MOD32 SERIES 16 ? 
BNZS $COMM1 BRANCH: NO, 
CLHI Raed FROM SERRF3 7? 
BES $COMM1 BRANCH: YES, 
LA R14.0(R2) GET INTERRUPT OLD PSW 
ENOC 


$cOMM1 sT® R14»0L0DPSW 
OHI R6,C'Foer 
STH R6sERRND 
STH RGeISITERR 
LH R1ePSW2 
EPSR ROeRI 

scOMM2 BAL R14sSTCON 
BAL R15-+TSToU 


OLD PSWe OLD LOC 

CONVERT ERROR NUMBER TO ASCII 
ERROR NUMBER 

FORCE ERROR MESSAGE PRINT 
SPEC'D aS x#*30F0°* 

ENSURE USER REGISTER SET 

SET UP & SELECT KEYBOARU DEVICE 
TEST IF KEYBOARD OFFeLINE 
BNZS scCoMM2 WAIT FOR ON-LINE. 

BAL R15+CRLE SEND LINE FEED 

BAL R15+ERR PRINT "ERROR XXFN?® 


LH R6-e ERRNO GET ERROR NUMBER 
STH R6,ISITERR FORCE PRINT 
BAL R14sERRPLI PRINT *PSW PPPP LOC LLLL* 


CLHI RGeC'FS! 
BNE OPTINY 


MACHINE MALFUNCTION ? 
BRANCH: NO, 


IFZ aoc-2 

LH R1eMMSwe2 ASSUME SERIES 16 
LH ROMOD32 SERIES 32 ? 

azs $COMM3 BRANCH: NO, 

oc X*5810",Z¢MMSW) * L R1eMMSW 


$COMMS Eau * 


MBF16040 
MBF16050 
MBF16060 
MBF16070 
mBF16080 
MBF16090 
MBF16100 
MBF1i6110 
MBF1©120 
MBF16130 
MBF16149 
4BF1°150 
MBF16160 
MBF16170 
MBF16180 
MBF 161909 
MBF16200 
MBF16210 
MBF16220 


MBFLS230 


MBF16240 
MBF16250 
MBF16260 
MBF 16270 
MBF16280 
MBF 16290 
MBF16300 
MBF16310 
MBF16320 
MBF16330 
MBF16340 
MBF16350 
MBF1©360 
MBF16370 
MBF163980 
MBF16390 
MBF16400 
MBF164%10 
MBF16420 
MBF16430 
MBF16449 
MBF 16450 
MBF16460 
MBF16470 
MBF164%80 
MBF16490 
MBF16S00 
MBF16510 
MBF16520 
MBF16530 


MBF 16549 
MBF16550 


mn 
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EXEC - ETPE RO5PO 


1657 ENDC MBF165970 
15Cc 2408 1658 Lis ROS DIGIT COUNT m6F 16580 
15CE C820 1686 1659 LDAI R2sASCIMSW DESTINATION MBF16590 
1592 41FO OF9E 1660 BAL R15+HEXaSC CONVERT 3200 MMSW FOR PRINT MBF16600 
1506 4$1FO 1042 1661 BAL R15 sSPRINT MBF16610 
15DA 1685 1662 DAC MMSWMSG *STATUS = XXXXXXXX* MBF16620 
150¢ 4300 0JABO 1663 B OPTIN GET COMMAND INPUT MBF 16630 
LOG6G RRR ER KER EKEAEKEKE KERR KEK ERE KEKE MBF 16640 
1665 * ETPE CONSTANTS & TABLES MBF16650 
15£9 1666 ALIGN 6 MBF 16660 
1667 ker ne eee nen nn ene enn ee eae MGF16670 
15£0 UUUO 1668 oLDPSwW pcx 0000+0000-0000-0000 MBF16680 
15E2 00uG 
15E4 ocodo 
1LSE6 0000 
15£3 0006 1669 NEWPSW pcx 0004+0000,0000.0000 MBF16690 
15EA 0000 
15EC 0000 
15EE 9000 
15FO 0000 0000 1670 INTPSW oOCY = 0 (SERIES 32 ONLY) ; MBF1©700 
15F4 uuUd 1671 MSW DCX voou,uu00 MACHINE MALFUNCTION STATUS MBF16710 
15F6 9000 j 
1672 keer nme ener nnn ee oon s MBF16720 
15F8 0000 1673 moD32 pcx 0 NON@“ZEROs SERIES 32 ms MBF16730 
15FA voodoo 1674 INTDEV DCX 0 INTERRUPTING DEV ADR MBF 16740 
G000 i5FA 1675 ERROEV EQU INTDEV ERROR DEVICE # MBF 16750 
15FC 00 1676 INTSTA Ou 0 INTERRUPTING DEV STATUS MBF 16760 
0000 15FCc 1677 ERRSTA EQU INTSTA ERRONEOUS STATUS MBF 16770 
15F) FED) 1678 NORM 0B x'sof CONSOLE NORMAL MODE MBF16780 
LSFE 40 1679 INCR 06 x*uGF CONSOLE INCREMENTAL MoDE MBF16799 
Lotr aa) 1680 $CLKSTRT OB Xteu? PIC CMD DISARM+START MBF1E800 
1600 1681 OB * (ALIGN ON HW BOUNDARY) MBF16810 
1600 UvUUG 1682 SINK oc 0) BIT BUCKET MBF1°820 
1602 GuUU0 1683 $CONPAS DCx ) SET WHEN CONSOLE ON PASLA/SPALM MBF16830 
1664 UNO 1684 $LSTPAS DCX ry SET WHEN LIST DEVICE ON PASLA MBF16840 
1665°> -# eSeereseressseesese= MBF16850 
1506 o0U0 1689 BRKVECT OC Z(90) BREAK KEY VECTOR MBF16890 
1604 VULO 1690 ¢$RBRKFLG OCx 0 SET IF BREAK KEY DETECTED MBF1©900 
160A voodoo 1691 IOSAVE OCcxX 3) CURRENT I70 IDENTIFIERS MBF16910 
160C uuuo 1692 ISITERR DCX rf) MESSAGE LEVEL MBF16920 
160€ aodo 1693 NOERR DCX 0 ZERO = °NO ERROR? MBF16930 
1610 u00C 1694 SELTST ocx 0 HIGHEST SELECTED TEST # MBF16940 
1612 ooco 1695 S$ _INEPOS DCX 0 CURRENT SOUTBUF POSITION MBF16950 
1614 0000 1696  $PRTFLG oOCX 0 FLAG USED FOR DEFERRING BRK ACKNOWLED MBF16960 
1616 0000 1697 swASDU pcx 0 ZERO IF 1/70 DEVICE ON-LINE MBF16976 
1618 0000 1698 TOTAL pcx 0 TIMES WHOLE TEST RAN MBF16980 
161A 0000 1699 TOTERR pcx 0 TOTAL ERRORS DETECTED MBF1°990 
161C uouo 1700 BTESTNO O0CxX u CURRENT TEST # IN SINaRY MBF17U00 
161€ 0060 1701 COUNT DCX a TIMES CURRENT TEST RAN MBF17010 
1620 JOGO 1702 S$PAUSE pcx Q SET DURING TRANSMISSION PAUSE MBF17020 
1622 e900 1703 $SHUTOWN DAC 0 A(USER=DEFINED SHUTDOWN ROUTINE) MBF 17930 
1624 vueos 1704 oUuTeSAV pac it] OUTCHR RETURN ADDRESS SAVE MBF170490 
1626 00ce 1705 @RK.SAV DAC G TSTBRK RETURN AGDRESS SAVE MBF17050 


COMMON 2,5 AND 10 MB FORMATTER 


EXEC - ETPE ROSPO 


1628 0000 
162A 9000 
162C 3031 3233 3435 
1634 3839 4142 4344 
163C 5445 5354 2020 
1644 00 
0000 1642 
1646 
1646 4552 524F 5220 
164E 2A2A 2020 2000 
0000 164¢ 
O0U0 1646 
1654 S44F 5441 4020 
165C 544F 5445 5252 
1663 4E4F 2045 5252 
ieék GU 
166C 4445 5620 2A2A 
1674 5354 4120 2A2A 
167C =0D 
0000 1670 
0000 1674 
0000 1678 
1670 4445 5620 2a2K 
0000 1681 
1685 5354 4154 5553 
1680 20209 2020 2020 
1695 2000 
0000 168& 
1697 5053 5720 2020 
169F 2020 2020 4C4F 
1647 2020 2020 2020 
vou0 1698 
0000 16A3 
0000 16A7 
16AE 494E 5445 5252 
i6B6 5445 4420 494E 
16BE 4556 454C 202A 
o0u0 16C3 
16C5 = 4S4E 4420 4Fu6 
16C0 4553 5400 
1604 
16D4 800A 3F00 
16D8 2a00 
1604 FFFF FFFF FFFF 
16F2 4252 4541 4B20 
16EA 5240 494 4154 
16F2 4E0D 
0000 16F3 
16F4  FFFF FFFF oD 


3637 
4546 


2Ae2A 


303u 


2020 
i) 
4FS2 


2420 
2020 


2000 


2030 
2020 


2020 
4320 
15) 


5550 
204C 
00 


2054 


FFFF 
5445 
494F 


1706 
1707 
1708 
1712 


1713 
1714 
1715 
1716 


1717 
1718 
1719 


1720 
1721 
1722 


1723 


1724 


1725 
1726 
1727 
1728 
1729 
1730 


1731 
1732 


1733 
1734 
1735 
1736 


1737 
1738 


1739 
1740 
L741 
1742 
1743 


1744 
1745 
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FE,SAVE DAC 0 FF OPTION SAVE 
SETeRTN DAC 0 SSETUP RETURN ADDRESS SAVE 
* 
HEXTAB 0B C*0123456789ARBCDEF* HEXADECIMAL DIGITS 
x =e men eet ge ae SS eae Bean ea ae wanes egeeae 
* ETPE MESSAGES 
* 
TSTMSG 0B C*TEST #*%eX*00? 
MTESTNO EQU TSTNSG+6 MASTER TEST NUMBER (ASCII) 
ALIGN 2 
ERRMSG 98 C*ERROR O0«* "X00" 064173 
ETESTNO E€@U ERRMSG+6E STORED sY ETPE 
ERRNO Eau ERRMSG+B8 STORE ERRNO AS CHAR CONSTANT 
TOTMSG 0B C'TOTAy TOTERR'.x?' O08 
NOERMSG OB CeyO ERROR'.xK*O0? 
DEVASG OB C'DEV «xe STA «x *,X'0D* Q6=-173 
ASCIDEV EQy DEVMSG+44 
STAMSG Eau DEVMSG+a 
ASCISTA EQU DEVMSG+12 
DEVMSG2 O86 C°OEV xexxt,x*ogt 
ASCIDEV2 EQuU BEVMSG2+4 
MMSWMSG 0B C*sTAtus = "exon 
ASCIMSW EQU MMSWASG+9 
PSWHMSG DB C*pSw Loc *.x'oor 
ASCIPSw Eau PSWMSG4+4 
LOCMSG EGU PSWMSG+12 
ASCILOC E€QU PSWMSG6416 
INTLVLM DB C*INTERRUPTED IN LEVEL **.x*op? 
ERRLYL EQu INTLVLM421 
EOTMSG 0B C*END GF TEST*eX*a0? 
ALIGN 4 
aussG DB K*BD" eX OA e Ch PteX#O0" CReLFe?eClR 
AMSG 06 Ct«tex*op? ¥*4aCR 
BRKMSG DB LermlemiseLemle-lLemleel 
0B C*BREAK TERMINATION’ »x*00* 
$BRKEND E€av xe 
NYULLMSG 08 “Lew~lrm-LewleX#OD? 


MBF17060 
MBF1/070 
MBF17080 
MBF17120 


MBF17130 
MBF17140 
MBF17150 
MBF17160 


MBF17170 
MBF17180 
MBF17190 


MBF17200 
MBF17210 
MBF17220 


MBF17230 


MBF1/240 


MBF17250 
MBF1/260 
MBF17270 
MBF17280 
MBF17290 
MBF17500 


MBF17310 
MBF17320 


MBF17530 
MBF 17340 
MBF17550 
MBF 17360 


MBF173570 
MBF17580 


MBF17590 
mBF1/400 
MBF17410 


MBF17420 


MBF 17430 


MBF1I7%4G 
MBF17450 


COMMON 2.5 AND 10 MB FORMATTER 


EXEC - ETPE ROS5PO 


G0U0 16F8 
16F9 06 


1746 CRLFMSG EGU 
1747 O08 


NULLMS644 
* 
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11337209 017117806 


HALFWORD ALIGN 


MBF1/4%60 
MBF174%70 


COMMON 2.5 AND 10 MB FORMATTER 
DATA CONSTANTS & CHECK ROUTINES 


16FC 


16FC 
1702 
1704 
1706 


1703 
170E 
1710 
1712 
1714 
1714 
171C 
L71E 
1720 
i726 
1726 
172A 
172C 
1732 
1734 
1736 
1738 
173€ 
1740 
1742 
1744 
174A 
L74C 
L74E 


1750 
1756 
1758 
175A 


175C 
1762 
1764 
1766 
1768 
176E 
1770 
1772 
1774 
177A 
177C 


u000 
4452 
0000 
o000 
oogo 
000 
44g 
oBCéE 
00b6 
ooco 
5345 
oBCE 
guFO 
u0Q00 
5u41 
ood 
Qo00o1 
0000 
4646 
GBAG 
oag1 
go00o0 
¥CHF 
oo0u0 
FFFF 
0000 
4HA49 
oo00g 
FFFF 
0000 
0000 
0000 
4F50 
g000 
oouU0 
0000 
0000 
yS4ar 
9000 
0000 
oo00 
4646 
OBAE 
g0U0 
G000 
464F 
LEF4 
oouUn 


16FC 
4956 


16FC 
5343 


4C43 


4354 


5453 


4359 


4359 


1750 
1750 
5449 


175A 
4E20 


2020 


5240 


4520 


4F4E 


4820 


$950 


4543 


4C20 


4C20 


4GF4E 


2020 


2920 


4154 


1749 
1750 
1751 
1752 
1753 
1754 


- 1755 


1756 
1757 


1758 


1759 


1760 


1761 


1762 


1763 
1764 
1765 


1766 
1767 


1768 


1769 
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Kaew ee ew ew eee wwe we eee wean 


OPTION/COMMAND TABLE 


* STRUCTURE DEFINED By *SSTRUC1* AT TOP OF LISTING 
ALIGN 4 
* **x COPY ETPE FILE ONLY TO HERE 


opT 
TEST 


DRIVE 
NISCON 


SELCH 


PACTYP 


FMTSEC 


LoCYL 


HICYL 


OPTEND 
OPTEND2 
OPTION 


SLINCNT 
CON 


FF 


FORMAT 


EQU 
oc 


Equ 
Oc 


pc 


pc 


DBC 


oc 


oc 


Eau 
EQU 
oc 


EQU 
oC 


oc 


oc 


* 
CTORIVE *eX*0000%ex*0000"sx*0000° 


TEST 
CtOISCON' «Z2(ADR) exXx*00B6*,x* 00008 


C*SELCH "eZ( ADR) oX*O0FO*sxX*0000" 


CPOACT YO * sx *0000%ex*0001%,»x*G000" DEFAULT 10 MB USER 


C*FATSEC* »Z2(ZERONE) +X*0001%,xX*0000" 


C*LOCYL "sxX*O%eX*FFFFE,0 


CeYICYL "eX*O*eX*FFFFY,0 


* 


* END OF PRINTING OPTIONS 
C*OPTION' 600000 


OPTION+s VALU? 
C*cON TeX* OC eX* Oe Xe? 


CtrF "eZ(ZERONELI «X*0%ex"08 


C*FORMAT' sZ( FMT eMOD) eX90%eX*O? 


MBF17490 
MBF17500 
MBF17510 
MBF17520 
MBF17530 
MBF17540 
MBF17550 


MBF17560 
MBF17570 


MBF17580 
MBF1/590 
MBF 17600 
MBF17610 
MBF17620 


MBF17630 
MBF17640 
MBF17650 


MBF17660 
MBF17670 


MBF17680 


HBF17690 


COMMON 2.5 AND 16 MB FORMATTER 


DATA CONSTANTS & CHECK ROUTINES 


177E 
1780 
1786 
1788 
178A 
178C 
1792 
1794 
1796 


4798 
179A 


179C 
17A2 
1744 
17AG6 
17A8 
L7TAE 
1780 
17Be 
1784 
17BA 
178C 
175E 
17¢0 
17C6 
17C8 
17CA 


BiG sce 


17CE 


1750 


1792 


1794 
1796 


1758 


L7OA 


175C 
179€E 
17£0 


17E2 


17E2 
17E4 
17€6 
17€8 
17EA 
17EC 
L7EE 
17F0 
17F2 
L7F4 
17F6 


0000 
4O4C 
21E4 
yooo 
9000 
434C 
2234 
0000 
0000 
0000 
FFFF 
4C4F 
0000 
0000 
a000 
4O4E 
9000 
0000 
0000 
434F 
0060 
0000 
GO00 
4E4E 
0000 
0000 
0000 


0000 
0000 
c0v00 
QUL0 
60C0 
0060 


“QUU0 


vouo 
0000 
0060 
0000 
FFFF 
avo 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0060 
0000 


4147 


4544 


4F50 


544C 


4E54 


4053 


17CC 


17£2 


2020 


5220 


2620 


4556 


49O4E 


4720 


1770 


1771 


1772 
1773 


1774 


1775 


1776 


1777 
1778 
1779 
1780 
1781 
1782 
17583 
1784 
1785 
1786 
1787 


1788. 


17389 


1790. 


1791 
1792 
1792 
1792 
1792 


1792. 


1792 
17S$2 
1792 
1792 
1792 


1793 


FLAG 


CLEAR. 


LOOP 
INTLEV 
CONTIN 


NOMSG 


* 
DEVSADR 


DEVINT 


INTLYL 


pc 


DC 


oc 
DC 


DC 
boc 


2] & 
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CYFLAG *,ZUFLG.MOD) +X#0*ex'0? 


C*CLEAR "eZ(CLRoMOD) oX#O%exXtO*,KTOF 


-1 
C*LOOP tex" O%exX*OreXto? 


CTINTLEV®’ sX*O'eXtOreXtoe 


C*CONTING eX*O%e XO se X*OF 


C*NOMSG "eX" O%ex*OreXtQ? 


* INTERRUPTING DEVICES 
x'g? SELCH 

xo? CONTROLLER 

RrOS DRIVE 0 

xtat DRIVE 1 

xror DRIVE 2 

xrat ORIVE 3 

x*of FIXD 9 

mrO* FIXD 1 

xtoF FIxD 2 

xvor FIXxD 3 

X*F FRE 

* INTERRUPT VECTORS 
x0" 

x'a* 

xo? 

x*o° 

xo 

x*o° 

x*or 

X'O? 

x*g? 

xtor 

10 INTERRUPT LEVELS 


MBF17700 


MBF17710 


mBF17720 
MBF17730 


MBF17740 
MBF17750 


MBF1/7760 


MBF17770 
MBF17780 
MBF17790 
MBF1/800 
MBF17810 
MBF17820 
MBF17830 
MBF17840 
MBF17850 
4BF17860 
MBF17870 
MBF17880 
MBF17890 
MBF1/900 
MBF17910 
MBF1/920 


MBF17930 


COMMON 2,5 AND 10 MB FORMATTER 
DATA CONSTANTS & CHECK ROUTINES 


17F6 
17F7 
L7Fa 
17F9 
17FA 
17FB 
17FC 
17F0 
17FE 
L7FF 


18600 
1304 
1802 
1893 
18604 
1805 
1806 


1807. 


1808 
18093 
180A 


180A 
180C 
180E 


1810 
1812 
1814 


1816 
1818 
1814 


0005 
0006 
0007 
Ouv8 
0009 
000A 
0008 


0002 


0002 


1804 


1810 


1816 


181C 


1794 
1794 
1794 
1794 
1794 
1794 
1794 
1794 
1794 
1794 
1795 
1796 
1797 
1798 
1799 
1600 
1801 
1éoe2 
1603 
1604 
i605 
1806 
1807 
1808 
1809 
1810 
1811 
1612 
1813 
1814 
1815 
1616 
1817 
1518 
1819 


1821 
18622 
1823 
1824 


1825 
1826 


L827 
1628 


1829 


* 


xto! 
xo? 
x*a* 
x*o° 
x*qt 
x*o* 
x¥*0° 
xtot 
x*o* 
x*o* 


* REGISTER EQUATES 


* 

FuT 
OcAD 
SLAD 
SECT 
HEAD 
STAT 
TRACK 
x 


*x COMMAND BYTES 


* 
INLE 
ACMD 
STOP 
GOREAD 
GOWRITE 
RCMD 
cyiCaD 
SEEK 
RCHECK 
RESET 
RESTOC 


TABSIZ 


* 
SECTAB 
HEDTAB 
CyYLTAB 


INOXTAB 


Eau 


Egu 


EQu 
Eau 
Eau 
EGU 
Fau 


Eau 
0B 
08 
DB 
08 
DB 


Eau 


PR OGM UE 


on) 


* 
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H*24"*,Hrobe,Heaye 


* 


HtateHta*,Heoe 


* 


H*2035* ,H'4G8*, Hoa? 
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CONTROLLER WRITE FORMAT 
SELCH STOP (EXTENDED? 
SELCH GQ, READ 

SELCH GOe WRITE 
CONTROLLER READ FORMAT 
ORIVE SET CYLINDER 
ORIVE SEEK 

CONTROLLER READ CHECK 
CONTROLLER RESET 

DRIVE RESTORE 

END OF COMMAND BYTES 


2 DISC TYPE SUPPORTED, 


SECTORS/TRACK 


HEADS/CYLINDER 


CYLINDERS/PACK 


PATTERN SELECT INDEX 


MBF1i7940 


MBF172950 
MBF17960 
MBF17970 
MBF17980 
MBF17990 
MBF12%000 
MBF18010 
MBF18020 
MBF18030 
MBF18040 
MBF18060 
MBF18070 
MBF18080 
mdr 18090 
MBF1LE100 
MBF18110 
MBF 18120 
MBF18130 
MBF18140 
MBF18150 
MBF1°160 
MBF18170 
MBF18180 
MBF18190 


MBF18210 
MBF18220 
MBF18230 
MBF28240 


MBF 18250 
MBF15260 


MBF18270 


MBF18280 


MBF18290 


COMMON 2,5 AND 16 MB FORMATTER 


DATA CONSTANTS & CHECK ROUTINES 


181C gous 1830 
L81E 0006 
1820 0006 

0000 1822 1831 
1822 0004 1832 
1824 00G2 
1826 a002 

0000 1828 1833 
1828 6363 03 1634 
1828 OU 1635 

0000 182C 1836 
182¢ 0008 1837 


182E 0006 
1830 6068 

0000 1832 1838 
1832 0100 1839 
1834 0100 
1836 0100 


-u000 1838 1840 
1838  O10F 1844 
LA3A O1GE 
183C O10E 

‘9000 183E£ 1842 
1835 ouu1 O11 - 1843 
1844 1844 

o000 1844 1845 
1844 FOFO 1846 
1446 oBeD 
1848 6DB6 
184A B6De 
LB4C FOFO 2 1847 
1B4E OF OF 
1850 1648 
1850 vouo 1849 
1852 290C 
1854 ooug 1850 
1856 0000 
1858 u0do 1851 
165A 2810 
18S5C ovv0 1852 
185£ 0000 
1660 0000 0000 1853 
1864 0000 0000 1854 
1868 0000 0000 1855 
186C 0000 0000 1856 
1870 0000 0000 1857 
1874 0000 0000 1858 
1878 0000 1859 
187A G000 1860 
187C¢ 0000 1861 
187E 0000 1862 
1880 goco 1863 
1882 0000 1864 


INCRTAB 


SYNCTAB 


GAPTAB 


LRECLTAB 


PRECLTAB 


TYPTAB 


DATAB 


DATAB1 


RFA 


FLAGRET 
SKRTRY 
FATAL 
LBN 
TESTS 
OEFTESTS 
MAXSEC 
MAXHEAD 
MAXCYL 
MAXDEX 
SKCNT 
INCRMT 


DCY 
oCcY 
ocy 
DcY 
ocy 
OcY 
DCX 
DCX 
OCx 
DCX 
ocx 
DOCK 
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H's? aH*6*.Hre? 


* SECTOR ADVANCE INCREMENT 
H*G*sHeot,Heoe 


* HEADER SYNC BYTE 


— XPOS KOS eXOSe 


* 
* HEADER GAP SIZE 
H*@teHtAtyytar 


* LOGICAL RECORD LENGTH 
H*256*,H*256",H* 256% 


* PHYSICAL RECORD LENGTH ‘FORMAT MODE) 


H'270° .H*270',Ht27or 


* SUPPORTED PACTYP 10#S 
RPO XeO1lt eX*01" 

0 ALIGN TABLE 

* DATA PATTERNS USED 


FOF0+0B60+6086+B6DB . AB SET 


FOFUsOFOF FAST FORMAT PATTERN 
D 
X*O*% es ZCWTF) 


X*Otexeoe 
K*O%+Z(ROF) 
X*O%axeOr 


SAVE 

SEEK ERROR RERUN ADRS 
SET ON *FATAL® ERROR 
LINEAR SECTOR POINTER 
VECTOR TO MODULE 


SECTORS/TRaCK 
HEADS/CYLINDER 
CYLINDERS PACK 

MAX DATA PATTERN INDEX 
MAX SEEK RETRY COUNT 
TOATA SECTOR ADVANCE 


eooocecoaoqooooc 


MBF189300 


MBF18510 
MBF18520 


MBF18330 
MBF18340 
MBF18350 
“BF18360 
MBF 18370 


MBF18580 
MBF18590 


MBF19400 
MBF184106 


MBF18420 
MBF 18430 
MBF18440 
MBF16450 
MBF184%60 


MBF184%70 


MBF18480 
MBF18490 


MBF18500 
MBF18510 
MBF18520 


MBF18530 
MBF18540 
MBF18550 
MBF18560 
MBF18570 
MBF 18580 
MBF18590 
MBF 15600 
MBF18610 
MBF18620 
MBF15630 
MBF18690 


COMMON 2.5 AND 10 MB FORMATTER 
DATA CONSTANTS & CHECK ROUTINES 


1884 
1886 
1888 
188A 
188C 
188E 
1890 
1892 
1894 
1896 
1898 
189A 
189C 
189E 


18A9 
18A3 
1859 


anos 


AVS 


18C9 
18C8 
18C4 
18Cc 
18D4 
180C 
18E0 
1862 
16EA 
18EE 
18FO 
18F8 
1900 
1908 
1919 
1916 
1918 
1920 
1928 
192E 


1930 
1938 
1940 
1948 
1950 
1954 
1956 
195E 
1966 
196E 
1976 


oo0d0 
oou0 
Quod 
0000 
uooo 
0000 
uguOo 
0060 
0000 
Qoudgo 
vou0 
0000 
ooug 
OUU7T 


434F 
2E35 
3020 
uZ2o 
5445 
3531 
ODOA 
“5S4eE 
4F52 
4954 
000A 
5748 
4956 
o0o0a 
494C 
4359 
2044 
202A 
4520 
ODOA 
444s 
4641 
4E43 
ODOA 
0000 
4y44sg 
464C 
2A2A 
2020 
202A 
oDUA 
4445 
464C 
2A2A 
2020 
ODOA 


4O4D 
2041 
4042 


user 
VOrF 


§220 


474L 
4041 
4348 


4943 
453F 


4C45 
4C49 
44 
OA2A 
5041 


5620 
4C53 
202A 


1918 
4620 
4147 
2A24A 
2A2A 
2A20 


4620 
4147 
2A2A 
2A28 


KEGE 
4E44 
2044 


Roan 
aru 


3036 


4745 
5420 


4820 


S74) 
E44 
5245 
202D 
4348 


2A2A 
4520 
2A20 


5345 
4745 
2A24A 
2A20 


5452 
4745 
2A2A 
2A20 


2032 
2031 
4953 


naan 
Th 


2032 


2046 
5357 


4452 


4C20 
4552 
5353 
2043 


2A20 
5359 


4320 
4420 
2A2A 
2a2n 


4B20 
4420 
2A2A 
2A2A 


1665 
1866 
1867 
1868 
1869 
1870 
1871 
1872 
1873 
1874 
1575 
1876 
1877 
1878 


1880 


1881 
1882 


1883 


1884 


1885 


1486 
1887 


1888 


GAPSIZE 
LRECL 
PRECL 
SYNC 
INDEX 
POINTER 
CYLNUM 
HEADNUM 
SECTNUM 
OSTSI2 
LPCNT 
FUTADRS 
PROTECT 
MAXTST 


TITLE 


MSG1 


MSsG2 


MSG3 


MsG4 


ouSTS 
MSGS 


MSG6 


pc 


pc 
oc 


DC 


oc 


oc 


EQU 
oC 


pC 


wNwoocrocoocoococaoaq 


C*CUMMON 2.5 AND 10 MB DISC FORMATTER 06-2518 


x?*oooar 
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GAp2 SIZE 

NORMAL RECORD LENGTH 
FORMAT RECORD LENGTH 
SYNC2 BYTE 

POINTER INTO DATA TABLES 
DSTBL INDEX SAVE 

CURRENT CYLINDER ADRS 
CURRENT HEAD ADRS 
CURRENT SECTOR ADRS 
OSTBL SIZE 

FORMAT=READS COUNTER 
SELECTED DRIVE'S aDDRESS 
WRITE=PROTECT HEADER BIT 
LAST DRIVE NUMBER 


C*ENGAGE FORMAT SWITCH*eX*QDOAr 


C*wHICH DRIVE?*eX*ODOA? 


CtILLEGaAL CYLINDER ADDRESS «x - CE PACK*®,x"ODOA® 


C*NEV *e* FALSE SYNC ee*,xeoDoa? 


4SG4 


CrDEF SEC FLAGGED *«xex%%%% 


CtOEF TRK FLAGGED «xxeekee k&kx EKO ,X ODOR? 


KEE EK ETEK NODOAS 


MBF18650 
MBF18660 
MBF18670 
MBF 18680 
MBF18690 
mBF18700 
MBF18710 
MBF18720 
MBF18730 
MBF18740 
MBF18750 
MBF18760 
MBF18770 
MBF18780 


MBF18800 


MBF18810 
MBF18820 


MBF18830 


MBF 18840 


MBF18859 


MBF 18860 
MBF 18670 


MBF18880 


COMMON 2.5 AND 16 MB FORMATTER 


QATA CONSTANTS & CHECK ROUTINES 


1978 
1980 
1988 
1990 
1998 
1940 


19A2 | 


19A4 
19AC 


' 79B4 


19BC 
19C0 
19C2 
19CA 


. 1902 


19DA 
19E2 
19E6 
19E83 
19F 0 
19F8 
19FE 
1400 
1A08 
1A10 
1414 
1A16 
LAIE 
1A26 
1Aa28 
1A30 
1A38 
1a40 
1A42 
1A4A 
1A52 
1A54 
1A56 


1ASE 


1A66 
LAGE 


1A76 | 
“LATE 


1A80 


1488 


1A90 
1A98 


-1AA0 


1AAB 
1ABO 
1AB6 


1AB6 


HO4C 
4543 
2n2n 
2020 
2024 
5820 
ODOA 
434e 
4552 
5420 
204F 
GOOA 
534F 
4F52 
2A2A 
2020 
202A 
oD0A 
4O4E 
2020 
5054 
ODUA 
5245 
5420 
5252 
ODOUA 
4452 
5345 
OOO0A 
44592 
2057 
524F 
ODOA 
4452 
204F 
4520 
OD0A 
4452 
2055 
4552 
5252 
5441 
ODOA 
HOKE 
5448 
FOE 
4152 
4154 
2042 
4F50 
OD0A 


c850 


4147 
5445 
2h2A 
2A2a 
2A20 


4E54 
2046 
5357 
4646 


4654 
2020 
2A2Ah 
2A2A 
2420 


5641 
2020 
494F 


4455 
5345 
4F52 


4956 
4C45 


4956 
2249 
5445 


4956 
4646 


4956 
4E52 
4142 
4F52 
5455 


2046 


454E 
2053 
4429 
2057 
4520 
4045 


1738 


2052 
4420 
2A2A 
2A20 
3C2D 


524F 
4F52 
4954 


2045 
2020 
2A2h 
2A20 


&C49 
2020 
4E20 


SEG 
454B 


4520 
4354 


4520 
5445 
4354 


4520 
204C 


4520 
4543 
4C45 
202D 
5320 


463D 
2041 
5441 
464F 
494C 
5045 
4426 


454A 
2020 
2A2A 
2A2A 
2D20 


COC 
441 
4348 


5252 
2020 
2A2A 
2A2A 


4420 
204F 


414E 
2045 


2A20° 


4544 


2A5n- 


2050 
4544 


2A3A . 


494E 


2A3A 
4FS56 
2045 
2053 
2A2A 


3120 
204E 
4E44 
524) 
4C20 
5246 


1889 


1890 


1891 


1892 
1893 


1694 


1895 
1896 


1697 


16986 


1899 


1900 
1901 


MSG&7 


M568 


MSG9 


™SG10 
aSG11 


MSG12 


MSG13 
MSG15 


MSG16 


MEF 


* 
ERRORI 


ac 


DC 


oc 


oc 


oc 


oc 


oc 


oc 


DC 


oc 


DC 


LOATI 
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C*FLAG REJECTED RRO KK KK KK <e--X' eX" ODDA" 


C*CONTROLLER FORMAT SWITCH OFF*,x*ODOA* 


CeSOFT ERROR eR RK RK KEE XPODOA? 


C*INVALIO OPTION®,X*ODOA! 


C*REDUNDANT SEEK ERROR® +x aDOAe 


CroRIVe * SELECTED*.x*aoDoAr 


C'ORIVE *3 WRITE PROTECTED*® eX*o00A! 
C’ORIVvEe «3 


OFF LINE*+sx*QDOA* 


C*ORIVE *: UNRECOVERABLE ERROR - STATUS *€eteX*ODQA?® 


C*rF Fr=1 THEN A NON@STANDARD FORMAT wILL 


C+ BE PERFORMED®,.x*0D0A" 


R5sLOCyi INVALID LOCYL OPTION 


MBF18890 


MBF15900 


MBF18910 


MBF18920 
“BF 18930 


MBF 18940 


MBF18950 
MBF18960 


MBE18970 


MBF18989 


MBF18999 


MBF19000 
MBF19010 


COMMON 2.5 AND 10 MB FORMATTER 
DATA CONSTANTS & CHECK ROUTINES 


1ABC 
1ACO 
1AC4 
1AC8 
LACC 
1AD0 
1A04 
1AD6 
1A08 
LADC 
1AEO 
LAE4 
1AE8 
LAEC 
LAFO 
LAF4 
LAFS 
1AFC 
1800 
1804 
1808 
1B0C 
1810 
1814 
1818 
1B1¢ 
1820 
1822 
1B24 
1828 
182C 


1B30 
1834 
1838 
183C 
1840 
1844 


1848 
1B4A 
1B4E 
1852 
1856 
1B58 
1B5A 
iBsc 


1660 
1864 
1B68 
1B6C 
1870 


4300 
C850 
43U0 
cs50 
4050 
4300 
0818 
2403 
4&0U0 
c820 
41FO 
caso 
4300 
c850 
4300 
c8s0 
4300 
C85a 
43 U0 
c850 
43u0 
caso 
4300 
c85s0 
4050 
43u0 
081A 
2402 
c820 
G1FO 
C850 


4810 
D311 
D210 
0210 
p210 
4300 


2416 
4010 
D305 
D201 
2751 
2711 
2026 
C850 


41FO 
41FO 
48U0 
4330 
4300 


1848 
1744 
1348 
18£2 
1868 
1860 


1868 
1909 
OFSE 
18FO 
1860 
1A00 
1860 
16FC 
1B48 
1A28 
1630 
1A42 
1830 
1720 
1B48 
19A4 
1868 
1860 


1ATC 
OF SE 
1A56 


161C 
162C 
1A2E 
1A48 
1ASC 


1B60 © 


1868 
0005 
19EF 


19£8 


1320 
105A 
1868 
0062 
oABB 


1902 
1903 
1904 
1905 
1906 
1907 
1908 
1909 
1910 
1911 
1912 
1913 
1914 
1915 
1916 
1917 
1918 
1919 
1920 
1921 
1922 
1923 
1924 
1925 
1926 


1927 


1928 
1929 
1930 
1931 
1932 
1933 
1934 
1935 
1936 
1937 
1938 
1939 
1940 
1941 
1942 
1943 
1944 
1945 
1946 
1947 
1948 
1949 
1950 
1951 
1952 
1953 
1954 


ERROR? 


ERROR3 


ERRORY 


ERRORS 
ERRORGE 
ERRORT 
ERRORS 
ERRORIO 


ERROR11 


ERROR13 


* 
SELECT 


x 
SETMSG 


SETMSG1 


* 
PRINTIT 


PAGE 


SETNASG 
R5,HICYL 
SETMSG 
R5eMSG2 
R5eFATAL 
PRINTIT 
Ri, TRACK 
RO,3 
ROwFATAL 
R2.4SG634+25 
R1ISe*HEXASC 
R5.4SG3 
PRINTIT 
R5eMSG11 
PRINTIT 
R5,DRIVE 
SETMSG 
R5.™SG613 
SELECT 
R5eMSG15 
SELECT 
R5.PACTyP 
SETMSG 
R5e4SGa8 
RSeFATAL 
PRINTIT 

R1 STAT 
ROe2 
R2eASG16+38 
R15*HEXASC 
R5+4SG16 


R1i,BTESTNO 
R1sHEXTAS(R1) 
R1sASG13+6 
R1e4SG15+6 
R1e4S616+5 
PRINTIT 


R1,6 

R1sFATAL 
ROe5(R5) 
RO«MSG10+7(R1) 
R5.1 

Rlel 

SETMSG1 
R5.ASG10 


R15+SETKB 
R15+PRINT 
RO FATAL 
TSTEND 
OPTINI 
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INVALID HICYL OPTION 


"WHICH ORIVE 7° 


CE PACK CYL AORS VIOLATION 
REQUNDANT SEEK ERROR 
INVALIO ORIVE OPTION 

ORIVE WRITE}{PROTECTED 
ORIVE OFFLINE 

INVALID PACTYP OPTION 


FORMAT SWITCH OFF 


UNRECOVERABLE ORIVE ERROR 


CONVT DRIVE NUMBER TO PRINT 


ABORT CURRENT SEQUENCE 7? 
BRANCH IF NO. 
TO EXEC, 


MBF19020 
MBF19030 
MBF190&6 
MBF 19050 
MBF19060 
MBF19970 
MBF19080 
MBF19090 
MBF19100 
MBF19110 
MBF19120 
MBF19130 
MBF19140 
MBF19150 
MBF19160 
MBF19170 
MBF19180 
MBF19190 
MBF19200 
MBF19210 
MBF19220 
MBF19230 
MBF 19240. 
MBF19250 
MBF 19260 
MBF19270 
MBF19280 
MBF 19290 
MBF193500 
MBF19310 
MBF19320 
MBF19330 
MBF19340 
MBF 19350 
MBF193560 © 
MBF19570 
MBF17580 
MBF193590 
MBF19400 
MBF19410 
MBF19420 
MBF194%30 
MBF 19449 
MBF19450 
MBF 17460 
MBF19470 
MBF194%80 
MBF19490 
MBF19500 
MBF19510 
MBF19520 
MBF19530 
MBF19540 


COMMON 2,5 AND 10 MB FORMATTER 


BATA CONSTANTS & CHECK ROUTINES 


1874 
1878 
1B7A 
1B7E 
1B&2 
1B84 
1886 
188A 
1B8E 
1890 
1692 
1594 
1898 
1B9C 


1BA0 
1BA4 
1BA8 
1BAA 
1BAE 
1952 
1836 
1BBA 
1BSE 
18C2 
18C4 
1BCA 
1BCE 
1892 
1806 
1BDA 
18DE 
1BE2 
1BE6 


1BEA 
1iBEC 
13F9 
18F4 
1BF8 
1BFC 
1BFE 


1c00 
1icod2 


1C06 
1CO0A 


0000 
D320 
2410 
4010 
0424 
2337 
2611 
c510 
4386 
2208 
u822 
2137 
cs8o00 
4400 
4239 


0301 
4009 
9111 
4801 
4000 
4801 
4000 
4801 
4OUG 
4801 
4009 
& B04 
4uu0 
4BCL 
40U9 
4801 
4000 
4801 
4000 


2400 
4000 
4800 
4810 
6100 
2711 
2023 


2405 
4000 


4810 
4800 


1874 
1729 


1868 
1835E 


a002 
1BUC 


oF OO 
1704 
LAF4 


1828 
188A 


1804 
1878 
1810 
187A 
1816 
187C 
181C 
187E 
1822 
1882 
182C 
1684 
1832 
1886 
1838 
1888 


1896 
1878 
187A 
18696 


1880 


1688 
165A 


1955 


1957 
1958 
1959 
1960 
1961 
1962 
1963 
1964 
1965 
1966 
1967 
1966 
1969 
1970 
1971 
1972 
1973 
1974 
1975 
1976 
i977 
1978 
1379 
1980 
1981 
1982 
1983 
1984 
1985 
1986 
1987 
1988 
1989 
1990 
1991 
1992 
1993 
1994 
1995 
1996 
1997 
1996 
1999 
2000 
2001 
2002 
2003 
2004 
2005 


* 
INIT 


INT .9 


INI.OA 


x 
INTel 


INT .iA 


INI.2 
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* 


R2sPACTYP+$VALUL41 


R1,0 

RI FATAL 
R2-TYPTAB(R1) 
INT.OA 

Riel 
R1eTABSIZ 
ERROR1O 

INTeO 

R2,R2 

INIe2 
RO,X*OFOQO? 
RO,ORIVE+S$VALUL 
ERRORG 


ROsSYNCTAS(R1} 
RO«SYNC 

Riel 
RO,SECTASB(R1) 
RO,MAXSEC 
RO;«HEDTaB(R1) 
ROeMAXHEAD 
ROeCYLTAB(R1) 
RG »AAXCYL 
RO,INDKTAB(R1) 
RO, ,MAXDEX 
ROsINCRTAB(R1) 
RO,.INCRMT 
RO.GAPTAB(R1) 
RO«GAPSIZE 
ROs¢LRECLTABIR1) 
ROszLRECL 
ROPRECLTAB(R1} 
RO,PRECL 


RO,O0 
RO.DSTSTZ 
RO«MAXSEC 
R1eMAXHEAD 
ROeOSTSIZ 
Riel 

INI.2 


RO,? 
RO,SKCNT 


R1ePRECL 
RO .RSA+2 


11:237:309 01/11/7806 


LOAD PHYSICAL IDENTIFIER 


BRANCH: MATCH. 


SEARCH DONE? 
INVALID PACTYP OPTION 


HEADER SYNC BYTE 


(HALFWORD INDEX) 
SECTORSs TRACK 


HEADS/CYLINDER 
CYLINDERS/PACK 
PATTERNS/FORMAT 

SECTOR ADVANCE INCREMENT 
HEADER GAP SIZE 

LOGICAL BYTES/SECTOR 


PHYSICAL BYTES/SECTOR 


COMPUTE SECTORS/CYLINDER 


MAX SEEK RETRY COUNT 


MBF19550 


MBF14970 
MBF19580 
MBF19590 
MBF1%9600 
MBF19610 
MBF 19620 
MBF19630 
MBF19640 
MBF 19650 
MBF19660 
4BF19670 
MBF19680 
4BF19690 
MBF19700 
MBF19710 
MBF19720 
MBF19730 
MBF19740 
MBF19750 
MBF19760 
MBF1L9776 
MBF19760 
4BF19790 
4BF19800 
MBF19810 
4BF19820 
MBF19830 
mBF19840 
MBF17850 
MBF 19860 
MBF179870 
MBF19880 
MBF19890 
MBF1°900 
MBF19910 
MBF19920 
MBF 19930 
MBF 19960 
MBF 19950 
MBF19960 
MBF19970 
MBF19980 
MBF19990 
MBF20000 
MBF 20010 
“BF 20020 
NBF20030 
nerecoag 
MBF 20090 


COMMON 2.5 AND 10 MB FORMATTER 
DATA CONSTANTS & CHECK ROUTINES 


1coe 
1C12 
1€16 
1C1A 
1C1€ 


1C22 
1C26 
1C2A 
1C2E 
1€32 
1036 
1C3A 
1C3E 
1¢c40 
1C44 
1C48 
1Cc4Cc 
1€50 


are9 
bea 


1¢54 
1€56 
1CSA 
1C5C 


1C5€ 
1C62 
1C66 
1C6A 
1C6E 
1c72 
1C74 
1C76 


1C7A 
1C7E 
1¢862 
1¢84 
1€88 
icsc 


1090 
1094 
1€96 
1C9A 
1¢09¢ 
1C9E 
1CA2 
1CA6 
1CAA 


CAUL 
4009 
4800 
CAO 
4000 


4860 
DE60 
4060 
DEG6D 
4860 
DE6O 
4060 
2516 
0320 
CAG0 
ca76E 
4061 
0e22 
21349 


eave 


2571 
4071 
2612 
222C 


4300 
4330 
4810 
c510 
4330 
9001 
2281 
4230 


c51o 
4230 
2405 
41E0 
C540 
4230 


c520 
038C 
4BFO 
2332 
S404 
4060 
4010 
41€9 
4300 


FFFF 
185E 
1852 
FFFF 
1856 


171C 
1801 
17CcCc 
1601 
1710 
1808 
17CE 


1729 
0010 
0001 
1706 


170E 


1704 
LAF4 
1870 
1CF4 
1024 


1AC8 


21E4 
1024 


1090 
0000 
1CAE 


0009 
15F8 
186C 
186E 


1E3A 
1002 


2006 
2007 
2008 
2009 
2010 
2011 
2012 
2013 
2014 
2015 
2016 
2017 
2018 
2019 
2020 
2021 
2022 
2023 
2024 
2025 
2026 
2027 
2028 
2029 
2030 
2031 
2032 
2033 
2034 
2035 
2035 
2037 
2038 
2039 
2040 
2041 
2042 
2043 
2044 
2045 
2046 
2U47 
20438 
2049 
2050 
2051 
2052 
2053 
2054 
2055 
2Uu56 
2057 
eh538 


IvI.e3 


INI.3A 


INT e4 


* 
* CHECK 
* 
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AHI RO.71(R1) 
STH RO,RFA+2 
LH RO,~WSA+2 
AHT RO«*1(R1) 
STH ROWFA+2 
LH RGsSELCH+4+$VALU1 
oc R6,.STOP 
STH R6eDEVSADR 
oc R6-STOP 
LH R6eUISCON+$VALU1 
oc R6+RESET 
STH R6,DEVSADR+2 
LCS R1is6 
LB R2ePACTYP+$VALUI41 
SHI R6EeX*1l0e 
LHI R7.1(R6) 
STH R6eDEVSADR+10¢(R1) 
LOAR R2,R2 
BN7S INTe3A 
LCS R7e1 
STH R7 sDEVSADR+18(R1)} 
AIS R1le2 
BNPS INI-S 
LH RO,URIVE+SVALUL 
BZ ERRORGE 
LDA R1,TESTS 
CLAI R1eFMT.MOD 
BE INI-5 
SRLS ROel 
BNCS INI.4 
BNZ ERRORS 
"FLAG? INPUT PARAMETERS. 
CLAI R1i.FLG.4OD 
BNE INI.S 
LIs R105 
BAL R14eSCAN 
CLHI R4.X*008 
BNE Sc.5 

* 

* IF CARRIAGE RETURNe STORE LBN. 
CLHI R29 
BNLR R12 
LH R15eM0032 
B2S Sc .4 
ocx 3401 
STH RO-+LBN 
STH R1i~LBN+2 
BAL R14.DECoDE 
B TSTPAR# 


11337309 02/11/60 


STOP SELCH 


REMOVABLE 
2.5 MB ? 
BR. NO. 


FIXEn 


INVALID ORIVE OPTION 


NOT USED BY FMT.MOD 


"WHICH ORIVE?® 


USED BY FLG,MOD 


SET CURSOR TO OPERAND START 


GET NUMERIC STRING 


CARRIAGE RETURN 7? 


INPUT ERROR = & CHARS ALLOWED, 


*EXHR ROORL 


STORE LOGICAL BLOCK NUMBER. 


MBF 20060 
ABF2U070 
4BF20080 
MBF 20090 
“BF20100 
MBF20110 
MBF20120 
MBF20130 
MBF20140 
MBF20150 
MBF20160 
MBF20170 
MBF20160 
MBF20190 
MBF2¥200 
MBF20210 
MBF20220 
MBF 20230 
MBF20240 
MBF20250 
MBF20260 
MBF20270 
MBF202860 
MBF 20290 
MBF20300 
MBF 20316 
MBF20320 
MBF20330 
MBF20340 
MBF 20350 
MBF 20560 
MBF20370 
MBF 20380 
“BF 20390 
MBF2U400 
MBF20410 
MBF20420 
MBF204%30 
MBF 20440 
MBF29450 
MBF 20460 
MBF204%70 
MBF20480 
MBF204%90 
MBF29500 
MBF29510 
MBF2U520 
MBF20930 
MBF20S540 
MBF20550 
MBF 209560 
MBF20570 
MBF20580 


COMMON 2,5 AND 10 MB FORMATTER 


NATA CONSTANTS & CHECK ROUTINES 


1CAE 


1CB2 © 


1C34 
1€388 
1CBA 


1CBE 
1ccd 
icc4 
1CC8& 
1CCA 


1CCE 
1cd0 
icb4 
1c06 
icDA 


1coc 
1CDE 
1CE2 
1CE6 
1LCES 
1icec 
icFo 
1CF2 
1CF6 
1CFA 
1CFE 


1002 
1006 
100A 
1o0ac 
19190 
1014 
1016 
101A 
1O1E 
1020 


1024 
1028 
1D2c 
1030 
1034 
1636 
103A 
1D3E 


0020 
0004 


1890 


1090 
0003 


1892 


1734 


0020 


1090 
0003 


1894 
g000 


1894 
1892 
1896 
1DF8 


1899 
187C 


1892 
187A 


1694 
1878 


105A 


174C 
1ACO 
187C 
1aco 


1AD4 
1Ec4 
1746 


2059 
2060 
2061 
- 062 
2063 
2064 
2065 
2066 
2067 
2U68 
2469 
2070 
Cu71 
2072 
2073 
2074 
2075 
2076 
2077 
2078 
2079 
2080 
20al1 
2082 
2083 
2084 
2085 
2086 
2087 
2u88s 
2089 
2090 
2u91 
2092 
2093 
2094 
2095 
2U96 
2097 
2u98 
2099 
2100 
2101 
2102 
2103 
2104 
2105 
2106 
2107 
2108 
2109 
2110 
2111 


x 
* IF SPACE WAS 
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4 


11237305 01711780 


ENCOUNTEREDs STORE CYLINDER ADDRESS.» 


sc.5 CLHI R4eX*208 
BNER R12 
CLHI R24 
BNLR R12 
STH R1sCYLNUM 

* 

* PROCESS HEAD ADDRESS 
AIs R10e1 
BAL R14*SCAN 
CLHI R25 
BNLR R12 
STH R1eHEADNUM 

* 

* PROCESS SECTOR ADDRESS 
LIs R1i,90 
LH ROeFMTSEC+SVALUL 
BZS $c.8 
CLHI R4eX*20° 
BNER R12 

* 
AIS R10e1 
BAL R14eSCAN 
CLHI R23 
BNLR R12 

Sce8 STH R1eSECTNUM 
CLHI R4exX*OD8 
8NER R12 
LH SECT sSECTNUM 
LH HEAG sHEAONUM 
LH TRACK sCYLNU™ 
BAL RisteENCODE 

* 

TSTPARM LH TRACK ,CYLNUM 
CLH TRACK + MAXCYL 
BNLR R12 
LH HEAD*+ HEADNUM 
CLH HEAD eMAYXYHEAD 
BNLR R12 
LH SECT sSECTNUM 
CLH SECT ¢MAxXSEC 
BNLR R12 
B INIe6 

* 

INI.5 LH RO eHICYL+$VALU1 
BM ERROR2 
CLH ROsMAXCYL 
BNL ERROR2 
LOAR TRACKsRO 
LOAI R14,ERRORY 
BAL R1iSeILLADD 
LH R1»sLOCYL+$VALU1 


SPACE 7 

BRANCH: INPUT ERROR 
CHECK CHAR COUNT 

3 CHARS MAX ALLOWED, 
SAVE CYLINDER ADRS 


POSITION CURSOR 
GET HEAD ADRS NUMERIC STRING 


INPUT ERROR 


SPACE ? ; 
INPUT ERROR 


POSITION CURSOR 


CREATE LBN 


CYLINDER ADDRESS ERROR 
INPUT ERROR 


INPUT ERROR 
NOT USED BY FLG.M00 


INVALID HICYL OPTION 


INVALID HICYL OPTION 


MBF20990 
MBF20600 
MBF 20610 
MBF 2U620 
MBF 20630 
MBF 20640 
MBF 20650 
MBF20660 
MBF20670 
MBF20680 
MBF 20690 
MBF29700 
MBF 20710 
MBF20720 
MBF 20730 
MBF29740 
MBF 20750 
aBF20760 
MBF20770 
MBF20780 
MBF 20790 
MBF2U800 
MBF20810 
MBF20820 
MBF20830 
MBF 2080 
MBF206506 
MBF 20860 
MBF 20870 
MBF20880 
MBF 29890 
MBF20900 
MBF20920 
MBF20920 
MBF 20930 
MBF 20940 
MBF20950 
MoE 20960 
MBF2U9TO 
MBF20980 
MBF 2U990 
“BF21900 
MBF21010 
“BF21020 
MBF21030 
MBF21040 
MBF22050 
MBF21060 
“BF 21070 
mBF21080 
MSF 21090 
4BF 21100 
MBF21110 


(oo reer SSS SE SS POPS AMMAN 


COMMON 2.5 AND 10 MB FORMATTER 
ONATA CONSTANTS & CHECK ROUTINES 


1042 
1046 
1D4A 
104E 
1050 
1054 
1056 


105A 
105¢ 
10SE 
1062 
1066 
1068 
1064 
106C 
106E 
1072 
1076 
107A 
1D7€ 
10380 
1082 
1086 
1088 
108C 


1090 
1092 
1094 
1096 
1098 
109C 
1DA0 
1DA2 
1DA4 
10A6 


1DA8 
1DAC 
LDAE 
10860 
1034 
10B6 
10B8 
1DBA 


4210 
4516 
4380 
0581 
4280 
0861 
41FQ0 


24F 0 
244g 
4814 
4210 
9010 
2704 
2158 
2463 
C820 
41Fo 
4OFQ 
41FO 
1918 
2642 
4300 
O8FF 
4230 
4300 


2400 
2410 
2420 
24FF 
DS4A 
D44F 
2334 
27F1 
O21E 


2205. 


4800 
2332 
11liy 
£000 
O61F 
26Ai 
2621 
4300 


1AB8 
187C 
1AB8 
1AC0 


1EC4 


17CC 
1D86 


191C 
OF9SE 
16UC 
1042 


105E 


0ABO 
oCcB4 


2Cac 
162C 


15F8 


0004 


1096 


2112 
2113 
£114 
2115 
2116 
2117 
2118 
2119 
2120 
2121 
2122 
2123 
2124 
2125 
2126 
2127 
2128 
2129 
2130 
2131 
2132 
2133 
2134 
2135 
2136 
2137 


2139 
2140 
2141 
2142 
2143 
2144 
2145 
2146 
2147 
2148 
2149 
2159 
2151 
2152 
2153 
2154 
23155 
2156 
2157 
2158 
2159 
160 
2161 


* 
INI «6 


INI«6A 


ouTSYS 


InNISYS 


InI.7 


BAL 


Neen & 


CAN 


SCAN1 


SCel 


REGISTERS DESTROYED: 


PAGE 42 11:37:09 


ERROR 
R1eMAXCYL 
ERROR 
TRACK «R1 
ERROR2 
TRACK.R1 
Ri5-+ILLADD 


R15+0 

R4&,0 
k1.DEVSADR(R4) 
INI.? 

R1,R0 
INISYS 

RO,3 
R2.OUSYS+4 
R15 eHEXASC 
R15*ISITERR 
R15e¢SPRINT 
ousYs 

R4e2 

INI.6A 
R15e15 
OPTIN 
INITRET 


R14eSCAN 

LIs RO-0 

LIS R1.0 

LIS R2,0 

LIs R15e15 

LB R4eSINBUF(R10) 
CLB R4sHEXTAB(R15) 
BES SC.2 

SIs Ri5e1 

BAR R14 

BS SCc,1 

LH R13+4on32 

azs sc.3 

ocx 1114 

SLL ROe4 

OAR R1.R1i5 

AILS Ridel 

AIs R2,1 

8 SCAN1 


01/11780 


INVALIO LOCYL OPTYON 


INVALID LOCYL OPTION 


INVALID HICYL OPTION 


06173F02 
06173F02 
06173F02 
06173F02 
06173F02 
06173F02 
06173F02 
06173F02 
06173F 02 
06173F 02 
06173F 02 
06173F 02 
06173F02 
V6173F 02 
06173F02 
06173F02 
06173F 02 
O6173F02 


» 2? © @ @ @ eee 8# @ @ 8@& © @ @9 @ @ e 


SUBROUTINE SCAN CHECKS INPUT PARAMETERS FOR THE 
ROeRLeR2eR4¥eR10¢R13,R15 


ACCUMULATOR 
DIGIT COUNTER 


MATCH DIGIT (7?) 


NO MATCH 
CONTINUE 


"FLAG? 


COMMAND, 


BRANCH: SERIES 16 PROC, 
*SLLS R1e4 (32 BIT SHIFT) 


32-BIT SHIFT 
ACCUMULATE 
BUMP POINTER 
AND COUNTER 


mBF21120 
MBF21130 
MBF21140 
MBF21150 
MBF21160 
4BF21170 
MBF21180 
MBF21190 
MBF21200 
MBF21210 
MBF21220 
MBF21230 
MBF21240 
MBF21250 
MBF21260 
MBF21270 
mBF21280 
MBF21290 
mBF21300 
MBF21310 
MBF21320 
MBF21330 
MBF21340 
MBF 21350 
MBF21360 
MBF21370 


MBF 21590 
MBF21400 
MBF 21410 
MBF21%20 
MBF 21430 
MBF21440 
MBF 21459 
MBF21460. 
MBF214%70 
MBF21%80 
MBF214906 
MBF21500 
MBF21510 
MBF21520 
MBF21530 
MBF22540 
MBF21550 
MBF21560 
MBF21570 
MBF21580 
MBF 21590 
MBF 21600 
MBF 21619 


™/ 


COMMON 2,5 AND 10 MB FORMATTER PAGE 43 11:37:09 61/11/80 


DATA CONSTANTS & CHECK ROUTINES 


2163 »* SUBROUTINE FMSUDF SETS UP CORRECT GAP2+s SYNC2+ AND NORMAL-MODE 
2164 * LRC FIELDSe AND SETS OATA FIELD TO ZERO FOR FORMAT-MODE TRANSFER. 
2165 «* REGISTERS OFSTROYED! ROR1TeR2eR3eR4,R13 
2166 * 

LOBE 2411 2167 FMSUDF LIS Riel SET SECTOR COUNT 

1DC0 c820 290c 2168 LHI R2,WTF 

1npc4 24b0 2169 FMSUDFA LIS R130 

10C6 2711 2170 FMSU.1 SIs Ril 

1DC8 o2iF 2171 BMR Ri5 

LOCA 0300 2404 2172 - LB RO.«GAP1 

10CE 2432 2173 LIS R3s2 

10D0 C842 0009 2174 LHI R4¥,IC(R2) 

1DD4 4902 0002 2175 FmMSU,2 STH ROe2(R2) 

1008 C120 10D4 2176 BXLE R2,FMSU,2 

100C 4800 168A 2177 LH ROSYNC 

1DE0 4002 0000 2178 STH RO,0(R2) 

1DE4 2622 2179 AIS R292 

1DE6 0842 2180 LOAR R4,R2 

1DE8 4A4O 1886 2181 AH R4&,LRECL 

1DEC 40D2 0000 2182 FMSU.3 STH R1390(R2) 

1DF0 c120 10€c 2183 BXLE R2sFMSU.3 

10F4 4300 1DC6 2184 8 FMSUe1 
2186 * SUBROUTINE ENCODE CONVERTS CYLINDER, HEADe & SECTOR ADRESS TO 
2187 * A POINTER INTO THE LINEAR SECTOR ARRAY 
2188 * REGISTERS DESTROYEDS NONE. 
2189 »* 

00U0 1DF8 2190 ENCODE Eau * CONVERT CYL, HEAD, SECT TO LBN 

1DFA DYuUg 2CFC 2191 STM ROeRSAVE 

1OFC 2421 2192 LIS R2e1 ° 

10FE 2400 2193 LIs RO,O 

1£00 4OU0 186C 2194 STH RO+LBN 

LE04 4080 186E 2195 STH SECTsLBN+2 SECTOR NUMBER 

1£08 4819 1878 2196 LH R1,MAXSEC TRACK SECTOR DELTA 

1E0C 08u9 2197 LDAR ROeHEAD e 

1E0E 2328 2198 BNP ENCe3 7 

1£19 6110 1865 2199 ENC.1 AHM R1.LBN+2 ‘ 

1614 2383 2200 BNCS ENC.2 * 

1£16 6120 186C 2261 AHM R2,LBN ‘ 

1E1A 2701 2202 ENCe2 sIS RO . 

1E£1C 2026 2203 BPS ENCel ° 

LELE 4810 1896 2204 ENCeS LH R1-O0STsS1z CYLINDER SECTOR DELTA 

1LE22 o80B £205 LDAR RO-+TRACK ‘ 

1E24 2328 2206 BNPS ENC.6 e 

1E26 6110 186E 2207 ENCe4 AH™ R1sLBN+2 * 

1E2A 2383 4208 BNCS ENC-5S ; 

1E2c 6120 186C 2209 AHA R2-.L8N . 

1£39 2701 2210 ENC.S sts RO,1 ° 

1E32 2026 2211 BPS ENC 4 ‘ 

1E34 0100 eCcFC 2212 ENCe6 LA RO RSAVE 


1636 0O30€ ' 2213 BR R14 RETURN, 


MBF 21630 
MBF216490 
MBF21650 
MBF21660 
MBF 21670 
MBF 21680 
MBF21690 
MBF21700 
MBF21710 
MBF 21720 
MBF21730 
MBF21740 
MBF21750 
MBF 21760 
MBF 21770 
MBF21780 
MBF 21790 
MBF21600 
MBF21810 
MBF21820 
MBF21830 
MBF 21840 


MBF21860 
MBF21870 
“BF21880 
MBF21890 
MBF 22900 
MBF21910 
MBF21920 
MBF 21930 
MBF21940 
MBF 21950 
MBF21960 
MBF21976 
MBF21980 
MBF21990 
MBF 22000 
MBF22010 
MBF22020 
MBF22030 
MBF220K0 
mBF 22050 
MBF 22060 
MBF 22070 
MBF22080 
aBF22090 
MBF 22100 
MBF 22130 
“BF 22120 
MBF 22130 


COMMON 2.5 AND 10 MB FORMATTER PAGE 44 11337309 01711780 
DATA CONSTANTS & CHECK ROUTINES 


2215 * SUBROUTINE DECODE CONVERTS THE LINEAR SECTOR POINTER INTO 
2216 »* THE CORRESPONDING CYLINDER, HEADe AND SECTOR ADDRESSES, 
2217 « REGISTERS DESTROYED: ROeR1,R2 
2218 * . 
0000 1634 2219 DECODE Eau * GET CY¥L+s HEaDs SECTOR FROM Len 

1E3A 2490 2220 LIs HEAD+«0 

1E3C 2480 2221 LIS SECT+0 

1E3E 2480 2222 LIS TRACK.O 

1£40 4800 15F8 2223 LH ROWMOD32 

1E44 2336 2224 BZS DEC.0 

1E46 73U0 2225 “oC >> x#7300°,27(LBN) *LHL RO+eLBN 

1E438 186C 

1€4a 7310 2226 oc X*73510¢,Z7(LBN+2) *LHL R1,.LBN+2 

LE&C 186E 

LE4E 2305 2227 aS DECel 

1£50 4800 166¢ 2228 DEC.0 LH ROeLBN 

1E54 4810 186E 2229 LH R1seLBN+2 

1E58 4810 1896 2230 DEC.1 SH R1,USTSIZ ADVANCE CYLINDER 

1E5C 2386 2231 BNCS DEC.2 

1ESE 2701 2232 SIS ROel 

1660 2384 2233 BNCS DEC.2 

1E62 4AlO 1896 2234 AH R1,9STSjz CORRECT EXCESS SUBTRACTION 

1E66 2309 2235 BS DEC.3 

1E68 2651 2236 DEC.2 AIS TRACKs1 

LEGA 4826 15F8 2237 LH R2.MOD32 

LEGE 2238 2238 82s DEC.i 

1E70 F410 2239 pcx F410 s0000eFFFF *NT R1,Y*'QOQ00FFFF® 

LET2 oodaG 

1E74 FFFF 

1E76 22uF 2240 BS DEC.1 

1E78 4B10 1878 2241 DEC.3 SH R1.MAXSEC ADVANCE HEAD 

LE7C 2384 2242 BNCS DECe4 

LETE 4A10 1878 2243 AH R1eMAXSEC CORRECT EXCESS SUBTRACTION 

1E82 2303 2244 BS DEC.95 

1E84 2691 2245 DEC.4 AIS HEAD®1 

1E86 2207 2246 BS DEC.3 

1£38 0881 2247 peceS LOAR SECT#R1 RESIQUE = SECTOR AORS 

1E8A 4080 1890 2248 STH TRACK+CYLNUM 

1ESE 40990 1892 2249 STH HEAD +HEADNUM 

1E92 4060 1894 2250 STH SECT»SECTNUM 

1£96 030F 2251 BR R14 RETURN TO CALLER 


2253 * SUBROUTINE RECODE CONVERTS CURRENT CYLINDER ADORESS AND USTBL 
2254 * INDEX TO THE CORRESPONDING LINEAR SECTOR POINTER. 
2255 « REGISTERS OESTROYED: HEADeSECT 


ooud 1£98 2256 RECODE Eau * COMPUTE LEN, SECT, HEAD FROM OSTBL 
1£98 2490 2257 LIS HEAD sO 
LEGA 0881 2258 LOAR SECTsR2 COPY DSTBL INDEX 
1E9C 4580 1878 2259 REC. CLH SECT MAXSEC 
1EA0 4280 1DF8 2260 BL ENCODE COMPUTE LBN: RETURN ON R14 
LEAS 4B80 18785 2261 SH SECT» MAXSEC 


MBF 22150 
MBF22160 
MBF 22170 
MBF22180 
MBF 22190 
MBF 22200 
MBF22210 
MBF 22220 
MBF 22230 
MBF 22240 
MBF 22250 


MBF 22260 


MBF 22270 
MBF 22280 
MBF22299 
MBF 22300 
MBF 22510 
MBF 22520 
MBF 22330 
MBF 22540 
MBF 22550 
MBF 22560 
MBF22570 
MBF 22560 
MBF 22590 


MBF224%00 
MBF 22410 
MBF 22420 
MBF 22430 
MBF 22440 
MBF22450 
MBF22460 
MBF 22470 
MBF 22480 
MBF22490 
MBF22500 
MBF 22510 


MBF22530 
MBF22540 
MBF22550 
MBF22560 
MBF22970 
MBF22580 
MBF 22599 
MBF22600 
MBF22610 


COMMON 2.5 AND 16 MB FORMATTER 


DATA CONSTANTS & CHECK ROUTINES 


LEAS 
1EA4 


LEAC 
1EAE 
1EB2 
1634 
1EB6 
1€88 
1EBA 
1EBE 
1&c2 


LEc4 
1EC8 
1ECC 
LECE 
1ED2] 
1E04 
1£08 
1EDA 
1EDE 
1EEO 
1EE4 
1EE6 
1EEA 
1EEC 
1EFO 
1€Fe 


2691 
2207 


2401 
DEUO 
9AU8 
GANS 
9418 
9801 
DA0O 
DEOG 
O30E 


c800 
D400 
023F 
CSBO 
038F 
c580 
O38E 
c5B0 
O38F 
C560 
036E 
C560 
O38F 
C5B0 
O28F 
Q50E 


L5FE 


161D 
15FO 


OOCE 
1728 


0197 
0180 
O1GA 
OOFB 
0015 


0008 


2262 
2263 


2265 
2266 
2267 
2268 


2269 


2270 
2271 
2272 
2273 
e274 
2275 
2276 
2277 


2279 
2280 
2281 
2232 
2283 
2284 
2285 
2286 
2287 
2288 
2289 
2290 
2291 
2292 
2293 
2294 
2295 
2296 
2297 


SUBROUTINE DISPLAY WRITES DRIVE, CYLINDER. HEAD, AND SECTOR 


AIS 
BS 


HEADs1 
REC.1 
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ADDRESSES TO THE PROCESSOR DISPLAY PANEL. 


ANLWRT 


LIS RO«el 

oc RO,INCR 

WDR ROeSECT 

WOR ROeHEAD 

EXBR RieTRACK 

WHR Ro,R1 

wD RO, BTESTNO+1 
oc RO,NORM 

BR R14 


* 
x 
* REGISTERS DESTROYED: ROeR1 
* 
P 


RETURN 


* CHECK FOR INVALID CYLINDERS ON CE DISC PACK 
* REGISTERS DESTROYED: RO 


* 
ILLAOD 


LHI 
cLB 
BNER 


CLHI 


BNLR 
CLHI 
BNLR 
CLHI 
BNLR 
CLHI 
BNLR 
CLHI 
BNLR 
CLHI 
BLR 
BR 


RO X*CE® 
ROsPACTYP+S$V 


R15 


TRACK,X*197" 
R15 
TRACK +X9180° 
R14 
TRACKsx*16A" 
R15 


TRACK sX*FBE 


R14 


TRACK +X#15* 


R15 
TRACK «X*OB* 
R15 
R14 


ALU1 


CE DISC PACK 


RETURN 
FOR CYL X*192°* 
BR: OK 


REJECT 
FOR CYLS X*100"+X*105* 
BR: OK 


BR: UK 
REJECT 


01/11/80 


DISPLAY TO INCREMENTAL MODE 
SECTOR 
HEAD 
CYLINDER 


? 


FOR CYt x*010° 
BR: OK 


MBF22620 
MBF22630 


MBF 22650 
MBF 22660 
MBF 22670 
MBF 22680 
MBF22690 
MBF22700 
MBF 22710 
MBF 227206 
MBF 22730 
MBF 22740 
MBF 22750 
MBF 22760 
MBF22770 


MBF227T90 
MBF 22800 
MBF 22810 
MBF22620 
MBF 22830 
MBF 22840 
MBF 22850 
MBF 22660 
MBF 22870 
MBF22880 
MBF 22890 
MBF2e900 
MBF 22910 
MBF 22920 
MBF22930 
MBF22940 
MBF22950 
MBF 22960 
MBF 22970 


COMMON 2.5 AND 10 8B FORM TTER 
DATA CONSTANTS & CHECK ROUTINES 


2299 
2300 


RHEE HHH HH EH HK HEH HEHE RH RHR HH RHEE EHH HK HHH HHH HK HH HH 
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RRR EEK REE KEK EEE EERE KER ERAREREE REREKRE RE REKEREEKECEEE ESE 


FORMAT MODULE 

PURPOSE OF MODULE: 

FMT.MOD EVALUATES THE SURFACE OF THE DISC PaCKs ESTABLISHES 
PROPtR FORMATs AND FLAGS FAULTY SECTORS AS DEFECTIVE. BY SETTING 
THE OEF SEC 3I1T IN THE HEADER OF EACH DEFECTIVE SECTOR, 


ASSUMPTIONS: 

EACH UISC DRIVE TO BE SELECTED MUST BE ON]|LINEe AND NOT WRITE 
PROTECTED. THE CUNTROLLER FORMAT SWITCH MUST BE IN THE FORMAT 
POSITION. 


VWESIGN SPECIFICATIONS: 

A SEEK IS BEGUN TO THE SPECIFIED LOCYL? DURING THE SEEKs A 
TABLE TO CONTAIN ENTRIES FOR FAULTY SECTORS IS ESTABLISHED. 
WHEN THE SEEK IS COMPLETE, A WORST-CASE PATTERN IS WRITTEN 
TO EVERY SECTOR IN THE CYLINDER, INCLUDING HEADER, SYNC, AND 
GAP FIELDS. 


EACH SECTUR IS THEN *READ=CHECKED® IN FORMAT MODE+TWO TIMES 
NO LRC ERROR IS EXPECTED. A FIFTH READ IS DONE, USING THE 
SELCHs AND THE DATA READ IS TESTED, ANY ERROR CAUSES A *SOFT! 
ERROR TALLY TO BE INCREMENTED FOR THE SECTOR. IN ‘DSTBL*te 


AFTER THIS SEQUENCE HAS BEEN REPEATED FOR EACH WORST-CaASE 
PATTERN, PROPER FORMAT IS WRITTEN TO THE ENTIRE CYLINDER* AND 
EACH SECTOR IS NORMAL-MODE READ-CHECKED. ANY ERROR CAUSES A 

FLAG TO BE SET IN DSTBL FOR THE SECTORe INDICATING "HARD ERROR'*, 


FINALLY, OSTBL IS SCANNED FOR ANY SECTOR ERRORS, TwO *SOFT® 
ERRORS, OR ANY *HARD® ERROR: CAUSE A SECTOR TO BE FLAGGED 
DEFECTIVE» BY SETTING THE DEF SEC BIT IN THE SECTOR HEADER. 
THE SECTOR IS TESTED AFTER FLAGGING, FOR DEFECTIVE SECTOR 
STATUS FROM THE DISC SYSTEM CONTROLLER. 


WHEN FLAGGING/TESTING IS COMPLETE+ A SEEK IS MADE TO THE NEXT 
CYLINDER: IF REQUIRED, WHEN ALL SPECIFIEO CYLINDERS HAVE BEEN 
PROCESSED+ A READ@CHECK IS MADE OF SECTOR Os HEAD 0 OF EACH 
CYLINDER BETWEEN LOCYL AND HICYL. ANY HEADER ERROR STATUS 

(IF NOT ACCOMPANIED BY DEF SEC STATUS) IS ASSUMED TO SE THE 
RESULT OF A REDUNDANT SEEK ERROR; AND A MESSAGE IS OUTPUT TO 
THAT EFFECT, IN THIS CASE+ THE FORMAT OF THE DISC PACK IS NOT 
GUARANTEED. 


WHEN FORMATTING IS COMPLETE FOR THE SELECTED DRIVEe THE ORIVE 
TS DESELECTEDs AND THE PROCESS IS REPEATED FOR THE NEXT 
SPECIFIED ORIVE (IF ANY). 

NOTE 


IF A ORIVE ERROR CCCURS, UP TO FIVE ATTEMPTS ARE MADE TO RECOVER 


; i 
i ’ 4 


MBF223990 
MBF25000 
MBF23010 
MBF25020 
MBF23030 
MBF 25040 
MBF23050 
MBF23060 
MBF23070 
MBF25080 
MBF23090 
MBF23100 
MBF25110 
MBF23120 
MBF25130 
MBF23140 
MBF23150 
MBF23160 
MBF 23170 


az a 
MBF e2s266 


MBF25190 
MBF23200 
MBF23210 
MBF 25220 
MAF23230 
MBF25240 
MBF23250 
MBF 23260 
MBF 23270 
MBF23280 
MBF 23290 
MBF25300 
MBF23310 
MBF23320 
MBF23330 
MBF 23540 
MBF23350 
MBF25360 
MBF 23570 
MBF23380 
MBF23590 
4BF234090 
MBF25410 
MBF23490 
MBF 23430 
MBF23449 
MBF 23450 
MBF234%60 
MBF 23470 
MBF25480 
MBF234%90 
MBF25509 
MBF 23510 


od 


COMMON 2.5 AND 10 MB FORMATTER | 


QAT& CONSTANTS & CHECK ROUTINES 


1EF4 
1EF8 
LEFC 
1F00 


1F O04 
1F08 


' 1FOC 


1F10 
1F14 
1F18 
1FiA 
1F1ic 
1F1eE 
1F 20 
1F22 


1F 26 
1F28 
1F2A 
1F2C 
1F 30 
1F 34 


1F 38 
1F3C 
1F40 
1F42 
1F44 
1F48 
1F4C 
TF4E 
1F52 
1F54 
1F58 


o0cg 
4850 
4860 
4870 
48BO0 


0000 
4060 
CBEO 
41FO 
4UFO 
DE60 
SIDGA 
2221 
9858 
9DbA 
2221 
DESO 


2400 
2410 
2422 
4B30 
4001 
C110 


4830 
4800 
2332 
2734 
4030 
4800 
2134 
48L3 
2303 
4803 
0810 


1EF4 
189A 
1710 
171¢ 
1740 


1FO4 
1890 
2110 
1ecy 
1864 
1808 


1806 


1896 
24DC 


1F 30. 


187E 
1770 


188C 
1770 
1844 


184C 


2352 
2353 
2354 
2355 
2356 
2357 
2358 
2359 
2360 
23561 
2362 
2363 
2364 
2365 
2366 
2367 
2368 


2570 
2371 
2372 
2373 
2374 
2375 
2376 
2377 
2378 
2379 
2560 
2381 
2382 
2383 
23584 
2385 
2386 
2387 
2388 
2389 
2390 
2391 
2392 
2393 
2394 
2395 
2396 
2397 
2396 
2399 
2400 
2404 
2402 


« START SEEK TO SPECIFIED CYLINDER, DO TABLE SETUP WHILE SEEKING, 
FMT.1 Eau * 


FuTeiA STH 


mT «MOD Eau * 
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FROM THE ERROR, IF RECOVERY CANNOT BE MADE, THE DRIVE IS 
DESELECTED+ AND THE NEXT SPECIFIED ORIVE (IF ANY) IS SELECTED. 


OPERATING PROCEQURES: 

MOUNT DISC PACKS ON REQUIRED ORIVES, ENTER THE CORRECT SELCHe 
VISCON, DRIVE+ LOCYL AND HICYL OPTIONS. ENTER "FORMAT*, THE 
FORMATTER PROCEEDS WITHOUT OPERATOR INTERVENTION. 


OPTIONS; ra 
SELCH+e DISCONe DRIVE, PACTYP, LOCYL, HICYL, FMTSEC 


TESTS & FORMATS DISC SURFACE 
LH FUT+sFUTADRS 

LH OCAD +DISCON+SVALUL 

LH SLAD+SELCH+SVALU1 

LH ‘TRACK +LOCYL+S$VALU1 


SEEK & PROCESS CYLINDER 
STH TRACK sCYLNUM : 
LOAT Ri4eCYLADVI 
BAL Ri5sItLtaood 
STA R1iS«SKRTRY 
oc DCAD*RESET 
SSK DCADsSTAT 
BFBS) IDLE 
WHR FUTsTRACK 
SSR VCADsSTAT 
BFSS IDOLEs1 


CHECK CE PACK CYL ADRS 
SEEK ERROR RERUN ADRS 


SEND CYLINDER ADRS 


oc FUT?eSEEK AND SEEK CYLINDER, 
LIS RO,O 

LIS R1i.0 

LIS R202 

LH R3.OSTSIZ SET OSTBL SIZE 


ROeOSTBL(R1) 
BXLE R1,FMT.1A 


ZERO DOST8L. 


LH R3«MAXDEX 


LH ROsFF+S$VALU1 CHECK FOR FAST FORMAT 
B2Zs PATLOOP 
SIS R3,4 

PaTLOOP STH R3,INDEX INITIALIZE PATTERN INDEX 
LH RO FF+SVALUL CHECK FOR FAST FORMAT 


PATLOOP1 LH 


BNZS PATLOOP, 

LH ROsDATAR(RS) 
BS PATLOOPo 
RO,DATAB1(R3) 


LGAD DISC w/C PATTERN 


GET FAST FORMAT PATTERN 


PATLOOP2 LDAR R1-¢RO 


x 


MBF 25520 
MBF25530 
MBF25549 
MBF 25550 
MBF 23560 
MBF25570 
MBF 25580 
MBF 23590 
MBF 23600 
MBF25610 


MBF 23620. 
“MBF 29630 


MBF23640 
MBF23650 
MBF 25660 


MBF 235670 


MBF25680 


MBF23700 
MBF25710 
MBF23720 
MBF25730 


MBF2374Q 


MBF23750 
MBF 23760 
MBF23770 
MBF 23780 
MBF23790 
MBF23800 
MBF2°5810 
MBF 23820 
MBF23830 
MBF23840 
MBF23850 
MBF23860 
MBF23870 
MBF2x880 
MBF23890 
MBF23900 
MBF 25910 
MBF23920 
MBF 25930 
MBF 23940 
MBF 23950 
MBF 25960 
HBF 25970 
4BF23960 
MBF25990 
“BF2e%000 
MBF 24010 
mar 28920 


i 
i 
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DATA CONSTANTS & CHECK ROUTINES 


1F5A 
1F5C 
1FS5E 
1F62 
1F66 
1F6A 
1F6E 


1F72 
1F76 
1F74 


1F7C 
LF7E 
1F82 
1F 8&6 
1F88 


1F8A 
1F8&c 
1F6E 
1F92 
1F94 
1F98 
1F9A 
1F9E 
1FAO 
1FA4 
1F AG 


1FAA 


2420 
2434 
4840 
4002 
4012 
c120 
4014 


4830 
4530 
2136 


905A 
C3A0 
4230 
O8AA 
2036 


2480 
2490 
G1FO 
2682 
4589 
20865 
4B80 
2691 
4599 
20868 
c780 
2035F 


1888 
230C¢ 
290E 
1F62 
2810 


187E 
188C 


O0ES 
2386 


22BC 
1878 
1878 
187A 


0001 


2403 
2404 
2405 
2406 
2407 
2408 
2409 
2410 
2411 
2412 
2413 
2414 
2415 
2416 
2417 
2418 
2419 


24P1 
2420 
2423 
2424 
2425 
2426 
2407 
2428 
24a9 
2430 
2431 
2432 
2433 

434 
2435 
2436 
2437 
2438 
2439 
2440 
2444 
2440 
2443 
2444 
2445 
2446 
2447 
2448 


2450 
2451 


S$uD.0 LIs R2_.0 


SUDel STH ROeWTF(RO) 


LIs R3,4 

LH R4,PRECL FORMAT-MODE RECORD SIZE 
SET UP WORST=CASE PATTERN 
STH RlswIF+2(R2) 

BXLE R2,SUD.1 


STH R1,ROF(R4) DUMMY DATA FOR FW COMPARES 


LH R3eMAXDEX 
CLH R3e INDEX 
BNE moD1l BYPASS IF ON=CYLINDER 


FMT .18 SSR FUT*sSTAT 


* 
* 


THI STAT«+X%E38 
BN2Z ORVERR 
LDAR STAT+*+STAT 
BNZS FHTe1B 


* WRITE WORST-CASE PATTERNS TO FULL CYLINDER, SECTOR-AT=A-TIME,. 
* 
* SECTOR ADVANCE SEQUENCE: INITIAL ACCESS IS MADE ON AN ODD-EVEN 
* BASIS: BEGINNING WITH HEAD Os SECTOR O« WHEN ALL EVEN=-NUMBERED 
* SECTORS HAVE BEEN WRITTEN FOR THE CYLINDER, THE ODD SECTORS ARE 
x WRITTEN, BEGINNING WITH HEAD O. 
* HEAD SECTORS 
x oon now mame 
*« Q Or2r4ebeeeet1B (20) FIRST REVOLUTION 
* 1 Osle4eGeeeeel1B (20) SECOND REVOLUTION 
* ETC. 
* 
* THIS GUARANTEES 1 SECTOR LEAD-TIME FOLLOWING A HEAD SWITCH, 
* 
* TIME TO PROCESS CYLINDER = INITIAL SYNC TIME + 2T(R)*HEADS 
* 
MoD1 LIS SEcT+0 
WF1.0 LIS HEAD+0 : 
WF1.1 BAL R1S«WFMT WRITE THE SECTOR 
AIS SECT+:2 
CLH SECT«¢MAXSEC. STILL VALID ? 
BLS WFi1el BRANCH: YES, 
SH SECT +*MAXSEC REVERT TO O/1 
HADVI ATs HEADe1 


CLH HEAD «eMAXHEAD 
BLS WF1iel 
XHI SECT+1 
BNZS WF1.0 


STILL VALID ? 


"READ=CHECK*® EACH SECTOR IN FORMAT MODE 
TIME TO PROCESS CYLINDER = INITIAL SYNC TIME + 


: 7 
) : : 
i ; 


mBF24030 
MBF24080 
MBF24050 
MBF 24060 
MBF24070 
MBF24080 
MBF24090 
MBF24100 
MBF 24110 
MBF24120 
MBF24130 
MBF24140 
MBF24150 
MBF24160 
MBF24170 
MBF24180 
MBF24190 


MBF24210 
MBF2*220 
MBF24230 
MBF 242490 
MBF 24250 
MBF 24260 
MBF24270 
MBF 24280 
MBF 24290 
MBF2%500 
MBF24510 
MBF 243520 
MBF 24330 
MBF24540 
MBF24350 
MBF 24560. 
MBF24570 
MBF24%380 
MBF24390 
MBF2+400 
MBF24410 
MBF 24420 
MBF24430 
MBF24440 
MBF 24450 
MBF 24460 
MBF 24470 
MBF24480 


MBF 24500 
MBF24510 


COMMON 2.5 AND 10 MB FORMATTER 


DATA CONSTANTS & CHECK ROUTINES 


1FAC 
LF AE 


. 1FB2 
1FB4 
1F86 
LFBA 
1F8C 
1FCO 
1FC2 
1FC6 
1FC8 
1FCC 
LFCE 
1FD2 


1FD4 
1FD8 
1FDA 


1FOE 
1FEO 
1FE4 
1FE8 
1FEC 
1FFO 
1FF2 


1FF6 


1FF8 
1FFC 
2000 
2004 
2006 
2008 
200A 
200c 
200E 
2610 
2012 
2016 
201A 


2402 
4006 


2489 
2490 
4H1FQ 
2652 
4580 
2085 
4B809 
2691 
4599 
2086 
c780 
203F 


489Q 
2701 


4220 


1898 


2322 
1878 
1878 
187A 


0001 


1898 


1FAE 


2066 
235E 
2024 
15F8 


204E 


1FF8 
1801 
185A 
185E 


1604 
1802 


2452 
2453 
2454 
2455 
2456 
2457 
2458 
2459 
2460 
2461 
2462 
2463 
2464 
2465 
2466 
2467 
2468 
2469 
2470 
2471 
2472 


2474 
2475 
2476 
2477 
2478 
2479 
2486 
2481 
2482 
2483 
2484 
2485 
2486 
2487 
2488 
2489 
2490 
2491 
2492 
2493 
2494 
2495 
2496 
2497 
2498 
2499 
2500 
2501 
2502 


* 

* 

Mob2 
PATLP1 


* 
FCHK 

FCK.0 
FcK.1 


HADV2 


2T(R)*HEADS*LPCNT 
LIS RQ,2 

STH RO«LPCNT 
LIs SEcT:0 

LIS HEAD +0 

BAL R15sFMROCK 
AIS SECTe2 

CLH SECT sMAXSEC 
BLS FCKel 

SH SECT +MAXSEC 
AIS HEADe1 

CLH HEAD sMAXHEAD 
BLS FCKel 

XHI SEcCTe¢1 

BNZS FCK.O 

LH RO,LPCNT 
SIS Rol 

BP PATLPL1 
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ESTABLISH ITERATION COUNT 


FORMAT READ CHECK THE SECTOR 
STILL VALID ? 

BRANCH: YES. 

REVERT TO 0/1 


STILL VALID ? 


DO AGAIN ! 


* READ EACH SECTOR IN THE CYLINDER, CHECKING FOR DATA 
* COMPARISON ERRORS AND LRC ERRORS, 
* TIME TO PROCESS CYLINDER 


¥ 
MODS 


* 

x READ A 
* 

RF1-0 
RF1l.1 


LIs 
LDAI 
LDAI 
LDAY 
LH 
BZS 
LOAT 


HEAD +O 
R15+SECTADV 
R1i4seFLGOST 
R13sTDATA 
RO.MOQD32 
RF1.0 
KR13*TDAZ2 


= INITIAL SYNC TIME + T(R)#*HEADS*INCRMT 


RETURN ADRS 
ERROR RETURN 
16 BIT XFER VECTOR 


32 BIT XFER VECTOR 


SECTOR IN THE FORMAT MODE 


SECTs0 

* 
SLAD+SToP 
SLAD sRSA+2 
SLAD sRFA+2 
FUT e TRACK 
DCADsSTAT 
IDLE +1 

RO wEAD 
R05 
ROe«SECT 
DCADeRO 
BcaDercuo 
SLAD+GOREAD 
SLAUsSTAT 


STOP SELCH 
SEND TRANSFER 
LIMITS 


STaRT SELCH READ 


MBF24520 
MBF24530 
MBF24540 
MBF24550 
MBF 24560 
MBF 24570 
MBF24580 
MBF 24590 
MBF24600 
MBF24610 
MBF24620 
MBF24630 
MBF 24640 
MBF24650 
MBF 24660 
MBF24670 
MBF 24680 
MBF 24690 
MBF24700 
MBF24710 
MBF 24720 


MBF2%740 
MBF 247509 
MBF24760 
MBF247706 
MBF24780 
MBF24799 
MBF 24800 
MBF24810 
MBF 24820 
MBF 24830 
MBF 24840 
MBF 24850 
MBF 24860 
MBF24879 
MBF 24880 
MBF 24890 
MBF24900 
MBF 24910 
MBF24920 
MBF24930 
MBF 24940 
MBF24950 
MBF 24960 
MBF24970 
SBF 29980 
MBF24%990 
MBF25000 
MBF 25010 
MBF25020 


COMMON 2.5 AND 10 MB FORMATTER 
DATA CONSTANTS & CHECK ROUTINES 
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an 


201C 2081 2503 BTBS 8el WAIT FOR SELCH. IOLE MBF 25030 
201 DE7O 1801 2504 oc SLAD+STOP STOP SELCH Mer 25040 
2022 9D6A 2505 SSR DCADsSTAT mBF25050 
2024 2221 2506 BFBS IDLEs1 WAIT FOR CONTROLLER IDLE MBF 25060 
2026 0350 2507 BFCR 5,R13 NORMAL MBF25070 
2028 030 2508 BR R14 ERROR MBF 25080 
2569 x MBF 25090 
2510 »* TEST DATA READ. MBF 25100 
2511 »* NBF25110 
QUuU0 202A 2512 TDATA Eau * TEST DATA READ FROM SECTOR MBF25120 
202A 48u0 290C 2513 LH RO,WTF GET WRITTEN DATA MBF25130 
202E 4810 29DE 2514 LH RieWTF+2 MBF 25140 
2032 242C 2515 Lis R2,0 MBF 25150 
2034 2434 2516 LIS R34 MBF 25160 
2636 4840 1888 2517 LH RG sPRECL MBF25170 
203A 2742 2518 SIS R42 MBF2°2180 
203c 4502 2810 2519 TpAel CLH ROeKDF (RO) CHECK DATA READ MBF 25190 
2040 U23E 2520 BNER R14 FLAG DSTBL MBF25200 
2u42 4512 2B12 25921 CLH R1,RDF+2(R2) MBF 25210 
2046 O23E 2522 SNER R14 MBF 22220 
2048 C120 203C 2523 BXLE R2,.T0A,1 MBF 25230 
2o04c O3UF 2524 BR R15 CONTINUE MBF 29240 
2525 « MBF 25250 
2046 5800 2526 TNAS2 oc X*5800",2(WTF) *L ROeWTE mMBF25260 
2050 290C 
2052 2410 2527 LIS R1,d MBF SS276 
2u54 2424 2523 LIS R24 MBF 25280 
2056 4830 1888 2529 LH R3ePRECL MBF 25290 
205A 2732 2530 sis R302 MBF 25300 
205C¢ 5501 2531 TOA.2 oc X*5501*,2(RDF) *CL RO,RDF(R1) MBF29310 
205E 2B10 
2060 O23E 2932 BNER R14 FLAG OSTBL MBF 25320 
2062 C110 205C 2533 BXLE R1,TOA.2 MBF25330 
2534 x MBF25340 
2535 »* ADVANCE TO NEXT SECTOR. “BF 25350 
2536 * MBF25360 
0000 2066 2537 SECTADV EAU x ADVANCE TO NEXT SECTOR MBF25370 
2066 4A80 1882 2538 AH SECTs INCRMT ADVANCE N SECTORS MBF 25380 
206A 4580 1878 2539 CLH SECTsMAXSEC MBF 25390 
206E 4280 iFFS 2540 BL RF1e1 MBF29406 
2072 2681 2541 AIS SECTel MBF 25410 
2074 4B80 1878 2542 SH SECT eMAXSEC MBF 29420 
2078 4589 1882 2543 CLH SECTeINCRMT MBF 25430 
207C 4280 1FFS - 2544 BL RFiel MBF2>4490 
2080 2691 2545 AIS HEADe1 MBF25450 
2082 4590 187A 2946 CLH HEAD eMAXHEAD MBF 25460 - 
2086 4280 1FF6 2547 BL RF1.0 OO NEXT TRACKe SAME CYLINDER MBF 25470 
2548 * MBF254%80 
2549 *ADVANCE TO NEXT WORST-CASE PATTERN MBF 25490 
2550 * MBF 25500 
208A 4830 188C 2551 LH R3- INDEX MBF 25510 
206E 2732 2552 SIs R3,2 MBF25520 
2090 4310 1F44 2553 BN PATLOOP DO NEXT PATTERN. MBF 25530 


COMMON 2,5 AND 10 MB FORMATTER 


JATA CONSTANTS & CHECK ROUTINES 


2094 
2098 
2094 
209C 
209€ 
20A0 
2042 
20Aa4 
20A6 
208A 
20AE 
2082 
2084 
2083 
20BA 
20B8E 
20C0 
20C4 
20C8 
20CC 


2000 
2002 
2004 
2003 
20Da 
20DE 
20EU 
20E4 
20E6 
20EA 
20EC 
20F9 


41Fo 
2480 
2490 
0809 
9105 
6608 
9400 
92B0 
4600 
u000 
41FO 
2682 
4580 
2086 
4B8a 
2691 
4590 
4280 
C780 
4230 


2480 
2490 
41FO 
2682 
4580 
2085 
4B80 
2691 
4590 
2088 
C780 
2035F 


1DBE 


189C 
29DC 
22BC 
1878 
1878 
187A 
209C 


6001 
209A 


230C 
1878 
1878 
187A 


0001 


2555 
2556 
2557 
2558 
2559 
2560 
2561 
2562 
2563 
2564 
2565 
2566 
2567 
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* WRITE PROPER FORMAT TO ENTIRE CYLINDER 
* TIME TO PROCESS CYLINDER = INITIAL SYNC TIME + 2T(R)*HE AUS 
* + FMSUDF DATA SETUP TIME. 


* 
MoD4 BAL R15sFMSUOF SET UP DATA BUFFER 
wre LIS SECT+0 
WF2.0 LIs HEAD +0 
WE2e1 LOAR RO.HEAQ FORMAT HEADER 

SLLS &Oe5 


OAR ROeSECT 

EXBR RO,RO 

ST8R TRACKsRO 

OH ROePROTECT 

STH ROeWTF 

BAL RiSWFMT 

AIS -SECT+2 

CLH SECT:+MAXSEC 

BL WF2e1 

SH SECT +MAXSEC 
HADVS Als HEADel 

CLH HEAD + MAXHEAD 

BL WF2el 

XHI SECT+1 

BNZ wFo.0 


WRITE THE SECTOR 


REVERT TO O/1 


* PROPER FORMAT ESTABLISHED, DO READ CHECK ON EACH SECTOR, 
* TIME TO PROCESS CYLINGER = INITIAL SYNC TIME + 2T(R)*HEADS 
* 


mMoDS LIS SECT:s0 
RCK.O LIS  HEADsO 
RCKo1 BAL = R15+RDCK READ=CHECK SECTOR 


RCKRTN ALS SECT+#2 
cLH SECT +MAXSEC 
BLS RCKel 
SH SECT *MAXSEC 
HADV4S AIS HEAUs1 
CLH HEAD +MAXHEAD 
BLS RCKel 
XHI SECT¢1 
BNZS RCK.O 


* ALL SECTORS IN CYLINDER HAVE BEEN TESTEDe AND SHOULD 
* HAVE PROPER FORMAT. OSTBL ENTRIES FOR EACH OF THESE SECTORS 
* ARE INTERPRETED AS FOLLOWS: 
* 
1. ENTRY = 0. 
NO ERROR DETECTED FOR SECTOR, 
2. ENTRY = 1. 
"SOFT ERROR’ DETECTED FOR SECTOR 


* eH & 


MBF25550 
MBF25560 
MBF 25570 
MBF 25580 
MBF25590 
MBF 25600 
MBF 25610 
MBF 25620 
MBF 25630 
MBF 25640 
MBF2°9650 
MBF 25660 
MBF 25670 
MBF 25680 
MBF 25690 
MBF29700 
MBF29710 
MBF25720 
mBF25730 
MBF25740 
MBF25750 
MBF25760 
MBF25770 
MBF25780 


MBF 25800 
MBF 25810 
MBF 25820 
MBF 25830 
MBF 25840 
MBF25850 
MBF 25860 
MBF 259870 
“BF25880 
MBF 25890 
MBF25900 
MBF 25910 
MBF25920 
MBF 25930 
MBF 25940 


MBF25960 
MBF 25970 
MBF25980 
MBF25990 
MBF 26000 
MBF26010 
MBF 26920 
Mar 26030 
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DATA CONSTANTS & CHECK ROUTINES 


2604 «* 3. ENTRY > 1. MBF260450 

2605 « *HARD ERROR® DETECTED FOR SECTOR MBF 26050 

2606 * MBF26060 

20F2 2410 2607 SCANOST LIS R10 INDEX MBF 26070 
20F4 2421 2608 LIS R2.1 INCREMENT & COMPARAND MBF260a0 
2oré 4830 1896 2609 LH R3.OSTSIZ FINAL MBF26090 
20FA 2731 2610 sits R3,1 MBF26100 
20FC D421 240¢ 2611 ScOel cLB R2-O0STBL(R1) CHECK SECTOR ENTRY MBF 26110 
2100 2324 2612 BNPS SECTERR MBF 26120 
2192 c110 20FcC 2613 ScDe2 BXLE R1«SCDel CONTINUE. MBF26130 
2106 2305 2614 BS CYLADV1 MBF26140 
2615 * MBF26150 

0000 2108 2616 SFCTERR EFQU * DECODE SECTOR ERROR TYPE MBF26160 

2103 4330 2190 2617 BE SOFTERR ENTRY = 1 SOFT ERROR MESSAGE MBF 26170 
210C 4300 2174 2618 B FLAGSECT ENTRY > 1 FLAG SECTOR MBF26280 
2620 «* CYLINDER COMPLETE’ ANVANCE TO NEXT CYLINDER, MBF26200 

2110 4580 L74C 2621 CYLADV1 CLH TRACK eHTCYL+$VALUI1 ALL CYLINDERS AONE 9 MOF O621n 
2114 2386 2622 RNLS REDUNCK BRANCH: YES, MBF 26220 
2116 41F0 12438 2623 BAL R1iS5eTSTBRK CHECK FOR BREAK KEY MBF 26230 
2114 26B1 2624 AIS TRACKe1 MBF 26240 
211C 4300 1F 04 2625 B FeTei DO NEXT CYLINDER MBF26250 
2627 +»* CHECK ALL CYLINDERS FOR REDUNDANT SEEK ERROR, MBF 26270 

2120 2480 2628 REDUNCK LIS SECT+9 MBF26280 
2122 2490 2629 LIS HEAD +0 MBF26290 
2124 48BO 174C 2630 LH TRACK eHICYL+$VALUL MBF26300 
2128 C8E0 2166 2631 REDUN.1 LOAI R14-CYLADVS BYPASS ADRS MBF 26310 
212c 41Fo 1EC4 2632 BAL R1iS+sILLaDO CHECK INVALID CYLINDER ADRS MBF 26320 
2130 4UFO 1864 2633 STA R15¢SKRTRY SEEK ERROR RERUN AORS MBF 26330 
2134 906A 2634 SSR OcAD+STAT SEEK CYLINDER MBF26340 
2136 2221 2635 BFBS IDLE ‘ MBF26350 
2138 985B 2636 WHR FUT: TRACK ° MBF2©360 
213A DESO 1806 2637 oc FuT+SEEK ° MBF 26370 
2135 SD6A 2638 SSR OCADeSTAT . MBF 26380 
2140 2221 2639 BFBS IDLee1 MBF 26390 
2142 9D5A 2640 REDUNe2 SSR FuT+STAT MBF 26400 
2144 C3A0 O0E3 2641 THI STAT+X*E3? MBF 26410 
2148 4230 2386 2642 BNZ ORVERR MBF 26420 
214C OBAA 2643 LDAR STAT*STAT MBF 26430 
Q14eE 2036 2644 BNZS REOUN.2 MBF264%40 
2645 «* MBF 264850 

215u 41E0 1EAC 2646 REODUN.3 BAL R14 ePANLWRT MBF 26460 
2154 41FO 230C 2647 BAL R15»RDCK READ-CHECK SECTOR 0 HEAD 0 MBF 26470 
2158 C3A0 0040 2048 THI STAT*#X*uo? HEAOER ERROR ? MBF 264%80 
215¢C 2335 2649 B2s CYLADVS BRANCH: NO, MBF 26490 
2156 c3A0 0020 2650 THI STAT Xt20° OEFECTIVE SECTOR ? MSF26500 
2162 4330 LAEC 2651 BZ ERRORS RENUNDANT SEEK ERROR MBF26510 
2652 * MBF 26520 


COMMON 2,5 AND 19 MB FORMATTER 


DATA CONSTANTS & CHECK ROUTINES 


2166 
216A 
216E 
2170 


2174 
2178 
217C 
2180 
2184 
2188 
218C 


2190 
2194 
2198 
219A 
219C 
21A0 
2144 
21A6 
21A8 
21Ac 
2180 
2182 
2186 
21BA 
21BC 
21C0 
21C4 
21C8 
21CC 
2150 
2104 
2108 
210C 
21£0 


1740 
0062 


2128 


2174 
188E 
1E98 
2D7C 
230¢ 
207C 
188E 
2102 


21906 
1E98 
207C 


190¢ 
oF SE 


19E0 
OFSE 


19E3 
OF SE 


186C 
19D2 
OF 9E 
186E 
1906 
OF SE 
19C2 
105A 
207C 
2102 


2653 
2654 
2655 
2656 


2658 
2659 
2660 
2661 
2662 
2663 
2664 
2665 
2666 


2668 
2669 
2670 
2671 
2672 
2673 
2674 
2675 
2676 
2677 
2678 
2679 
2680 
2681 
2682 
2663 
2684 
2685 
2685 
2667 
2688 
2689 
2690 
2691 
2692 
2693 


* A DEFECTIVE § 
FLAGSECT Eau 


"SOFT ERROR* 


Eau 


PAGE 53 
TRACK eLOCYL+$VALUL 
TSTEND 
TRACK s1 
REDUN,1 


ECTOR Is TO BE FLAGG 
* 


R1,POINTER 
R14 -+RECODE 
RO ERRSAVE 
R14eFLAGIT 
RO,,ERRSAVE 
R1,POINTER 
SCD.2 


* 
R14eRECODE 
RO,ERRSAVE 
R1.TRACK 
RO3d 
R2+4S69+26 
R15e+HEXASC 
R1,HEAD 
RO 
R2.4SG694+30 
R1iS5*HEXASC 
R1,.SECT 
R2+MS69433 
R15+HEXASC 
ROe4 
R1eLBN 
R2,4SGS9416 
R15esHEXaASC 
Ri eL BN+2 
R1iSeHEXASC 
R5,4SG69 
R15+ePRINT 
RO ,ERRSAVE 
SCDe2 


11:3357:69 


DONE, DESELECT DRIVE. 


CONTINUE, 


ED. 


TO FLAG A SINGLE SECTOR IN DSTBL 


SAVE INDEX 


RELOAD INDEX 


MESSAGE IS TO BE PRINTED, 
TO CUMMENT ON SOFT ERROR 


01/11/80 


CONVERT SECTe HEAD: 


"SOFT ERROReee’ 


LBN TO PRINT 


MBF 26530 
MBF 26540 
MBF26550 
MBF 26560 


MBF 26580 
MBF26590 
MBF26600 
MBF 26610 
MBF 26620 
MBF 26630 
MBF 26640 
MBF26650 
MBF 26660 


MBF26680 
MBF 26690 
MBF26700 
MBF26710 
MBF26720 
MBF 26730 
MBF2°740 
MBF26750 
MBF 26760 
MBF 26770 
MBF 26780 
MBF 26790 
MBF 26800 
MBF2©810 
MBF 26820 
MBF 26830 
MBF 26840 
“BF 26850 
MBF 26860 
MBF 26870 
MBF 26880 
MBF 26890 
MBF26900 
MBF26910 
MBF26920 
MBF 26930 


COMMON 2.5 AND 10 MB FORMATTER 
DATA CONSTANTS & CHECK ROUTINES 


21E4 
2168 
21EC 
21F0 
21F4 
21F8 
21FCc 
2200 
2204 


0000 
4850 
4860 
4870 
48B0 
4890 
4880 
CBEQ 
41F 0 
4#O0FO 


21E4 
189A 
1710 
171Cc 
1890 
1892 
1894 
1AD4 
1—c4 
1864 


2695 
2696 
2697 
2698 
2699 
2700 
2701 
2702 
2703 
2704 
2705 
2706 
2707 
2708 
2709 
2710 
2711 
2712 
2713 
2714 
2715 
2716 
2717 
2718 
2719 
2720 
2721 
2722 
2723 
2724 
2725 
2726 
2727 
2728 
2729 
2730 
2731 
2732 
2733 
2734 
2735 
2736 
2737 
2738 
2739 
2740 
2741 
2742 
27435 
2744 
2745 
2746 
2747 
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HERE RAR EERE EERE EE EER EEE EERE EEE EE EEA EKEKAEERES 
FLAG MODULE 


PURPOSE OF MOOULE: 
FLG.MOD ALLOWS THE USER TO FLAG A SECTOR (TRACK) AS DEFECTIVEs 
BY ENTRY OF THE APPROPRIATE COMMAND, 


ASSUMPTIONS: 

THE OISC ORIVE TO BE SELECTED MUST BE ON-LINE AND NOT WRITE= 
PROTECTED. THE CONTROLLER FORMAT SWITCH MUST BE IN THE FORMAT 
POSITION. 


DESIGN SPECIFICATIONS: 

THE DEF SEC BIT IS SET IN THE HEADER OF THE SPECIFIED SECTOR, 
THE DATA AND NORMAL MODE LRC FIELDS ARE SET TO ZEROS. THE SECTOR 
TS THEN READs WITH DEFECTIVE SECTOR STATUS EXPECTED FROM THE 
DISC SYSTEM CONTROLLERS IF THE CORRECT STATUS IS NOT RETURNED» 
THE MESSAGE "FLAG REYECTED* IS DISPLAYED. IF FMTSEC = Oe ALL 
SECTORS ON THE INOICATED TRACK ARE FLAGGED OEFECTIVE, 


OPERATING PROCEDURES; 

MOUNT THE DISC PACK oN THE DESIREO ORIVEs AND ENTER THE CORRECT 
SELCHs OISCONe AND DRIVE OPTIONS. TO FLAG A SECTOR, 

ACCEPTABLE INPUTS FOR THE *FLAG* COMMAND ARE AS FOLLOWS: 


FOR FMTSEC = 0 
FLAG MMMARMMM 
FLAG TTT HH 


FOR FATSEC = 1 
FLAG MMMMMMAM A 
FLAG TTT HH KK 


WHERE ™ = LOGICAL BLOCK ADDRESS 
T = CYLINDER ADDRESS 
H = HEAD AODRESS 
K = SECTOR ADDRESS 
OPTIONS: 7 


SELCH+s DISCONe ORIVE, PACTYP, FMTSEC 


LGeMod EQU * 
LH FUTeFUTADRS 
LH DCAD sDISCON+$VALU1 
LH SLAOQ*SELCH+SVALU1 
LH TRACK «CYLNUM 
LH HEAD sHEADNUM 
LH SECT+SECTNUM 
LOAI R14eERRORY 
BAL R15*ILtL add 
STA -RL5eSKRTRY 


CHECK CE PACK CYL ADRS VIOL 
SEEK ERROR RERUN ADRS 


B 

‘ $ 
‘ 

| e ‘ 


MBF 269890 
MBF 26960 
MBF 26970 
MBF26960 
MBF 26990 
MBF2T7000 
mBF27010 
MBF27020 
MBF27030 
MBF2 7040 
MBF27950 
MBF27060 
mMBF27070 
MBF27080 
MBF27090 
MBF27100 
MBF27110 
MBF 27120 
MBF27130 
MBF27140 
MBF27150 
MBF27160 
MBF27170 
MBF27160 


_MBF27190 


MGF 27200 
MBF27210 
MBF27220 
MBF27230 
MBF27240 
MBF2/250 
MBF27260 
MBF27270 
MBF27280 
MBF27290 
MBF27300 
MBF27310 
MBF27320 
MBF27330 
MBF27340 
MBF27350 
MBF 27360 
MBF 27370 
MBF27380 
MBF27390 
MBF27400 
MBF27410 
MBF27420 
MBF27430 
MBF27440 
MBF2°450 
MBF27460 
MBF2T7470 


COMMON 2.5 AND 10 MB FORMATTER 


DATA CONSTANTS & CHECK ROUTINES 


2208 
220A 
220C 
220E 
2210 


2212 


2216 


221A 
221C 
221F 
2220 
2222 
2226 


2228 


222C 
2236 


SDGA 
2221 
9858 
9064p 
2221 


BESO 


41FO 


9D6A 
2221 


‘O9DSA 
-23FE6 


C3A0 
2254 
4300 


4HiEo 
4360 


1806 


1DBE 
0063 
2386 


230C 
OABO 


2748 
2749 
2750 
2751 
2752 
2753 
2754 
2755 
2756 
2757 
2758 
2759 
2760 
2761 
2762 
2763 
2764 


. 2765 


2766 
2767 


2768 
2769 


* 
SSR 
BFBS 
WHR 
SSR 
BFas 
oc 


BAL 


SSR 
BFBS 


‘FLGeM1- SSR 


BFC 
THI 
B25 
B 

* 


*x FLAG THE SECTOR OR TRACK. 


* 
FLG.M2 = BAL 
B 


DCADeSTAT 
IOLEs1 
FUT+ TRACK 
OCAD+STaT 
IOLE+1 
FUT +SEEK 


R15eFMSUDF 


DCAD+STaT 
IDLE «1 

FUT+STAT 
15,.FLG.m2 


STAT sX*63° 


FLGeM1 
DRVERR 


R1L4eFLAGIT 


OPTIN 
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SEEK CYLINDER 


SET UP HEADERs DATA FIELDS 


FLAG SECTOR 
EXIT 


MBF27480 
MBF27490 
MBF27500 
MBF27510 
MBF27520 
“BF27530 
MBF 27540 


~ MBF27550 


MBF27560 
MBF27570 
MBF27580 
MBF27590 
MBF 27600 
MBF 27610 
MBF27620 
MBF27630 
MBF2T6R0 
MBF27650 
MBF 27660 
MBF27670 
MBF 27680 
MBF27699 


COMMON 2,5 AND 10 MB FORMATTER 
DATA CONSTANTS & CHECK ROUTINES 


2771 
2772 
2773 
2774 
2775 
2776 
2777 
2778 
2779 
2760 
2781 
2782 
2783 
e7B4 
2785 
2786 
27a7 
2788 
2789 
2790 
279i 
2792 
2793 
2794 
2795 
2796 
2797 
2798 
2799 
2800 
2801 
2802 
2803 
2604 
2805 
2306 
2807. 
2808 
2609 
2810 
2611 
2612 
2613 
2814 
2615 
2816 
2sui17 
2818 
2819 
2820 
2821 
2822 
2523 


0000 
4856 
4860 
4870 
2400 
2410 
2420 
4830 
2732 
4062 
c1io 


2234 
1894 
1710 
171¢ 


1888 


230C 
224C 


4880 
c&Eo 
41FG 
4OFO 


1740 
22AA 
1EC4 
1864 
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REKEEER KEKE KEK EKKAEREKEKEKEKESKKERE EERE EKEEKEREERHAEEERE 


CLEAR MOOULE 

PURPOSE OF MODULE: 

CLR.MOD ALLOWS THE CUSTOMER ENGINEER (CE) To REMOVE ALL RECORDED 
INFORMATION FROM A SPECIFIED AREA OF THE DISC PACK. 


ASSUMPTIONS? 

THE OISC DRIVE TO BE SELECTED 4UST BE ON-LINE AND NOT wRITE= 
PROTECTED. THE CONTROLLER FORMAT SWITCH MUST BE IN THE FORMAT 
POSITION. 


GESIGN SPECIFICATIONS: 

ALL SECTORS FROM LOCYLSHICYL,s 
OISC WITH SECTOR HEADER: GAP, 
LRC FLELOS SET TO ZERO, 


INCLUSIVELY. 
SYNC, DATA 


ARE WRITTEN TO THE 
AND NORMAL AND FORMAT MODE 


"INVALID® CYLINDER ADDRESSES ARE BYPASSEOs FOR CE PACKS. 


OPERATING PROCEDURES: = 
ENSURE THAT THE REGUITRED ORIVE IS ON*LINE, WITH THE 
DESIRED DISC PACK MOUNTED. ENTER THE CORRECT PACTYP 
OPTION, AND THE LOCYL AND HICYL OPTIONS DESIRED. 
TO REMOVE RECORDED INFORMATION: ENTER "CLEAR®, 

* KK CAUTION *eEREK 
THE CLEAR COMMANO 
ANO RECORDED DATA 


CAUSES THE DESTRUCTION OF SECTOR HEADERS 
FOR ALL SECTORS FROM LOCYLSHICYL. 


THIS HAPPENS VERY QUICKLYe THE CLEAR COMMANDO SHOULD NOT 
NORMALLY BE USED: EXCEPT BY THE CUSTOMER ENGINEER, 
OPTIONS: 
SELCH+ DISCONe ORIVEs PACTYPe LOCYLe HICYL 
LR.400 E£aU * TO WRITE ALL ZEROS. LOCYL:HICYL 
LH FUT sFUTADRS 
LH DCAD eDISCON+$VALU1 
Lo SLAD*+SELCH+$VALU1 
LIs RO,0 
LIs R1,0 
LIS R2,2 
LH R3-ePRECL 
SIs R302 
LRed STH RO WTF (R13 ZERO WRITE BUFFER 
BXLE R1,CLR.O 
LRel LH TRACK +e LOCYL+S8VALU1L 
LRe2 LOAI R1i4¥eCYLaADVe 
BAL RiS*ILLAO0D CHECK CE PACK CYL ADRS VIOL 
STA Ri5SKRTRY SEEK ERROR RERUN ADRS 


MBF27710 
MBF27720 
mBF27730 
MBF27740 
MBF27750 
MBF 27760 
MBF2/770 
MBF27780 
MBF27790 
MBF27800 
MBF27810 
MBF27620 
MBF 27830 
MBF27840 
MBF27850 
MBF27860 
MBF27870 
MBF27880 
MBF27890 
MBFO79N00 
MBF27910 
MBF2/920 
MBF 27930 
MBF27940 
MBF27950 
MBF27960 
MBF27970 
MBF27980 
MBF27990 
MBF28000 
MBF28010 


MBF 28020 


MBF28030 


MBF 25040 


MBF28050 
MBF28060 
MBF28070 
MBF 28080 
MBF 28090 


- MBF 28100 


MBF26110 
mBF28120 
MBF 28130 
MBF 28140 
MBF 28150 
MBF28160 
MBF 28170 
MBF25180 
MBF 28190 
MSF 26200 
MBF28210 
MBF 28220 
MBF 24230 


COMMON 2,5 AND 10 MB FORMATTER 


DATA CUNSTANTS & CHECK ROUTINES 


2264 
2266 
2268 
226A 
226E 
2270 
2272 
2276 
2278 
2274 
227C 
227E 
2282 
2284 


2288 
228A 
228C 
2290 
2292 
2296 
2298 
229 
2296 
22A2 
2204 
2208 


22AN 
22AE 
2262 
2284 
2238 


SDEA 
2221 
9858 
DES50 
SD6A 
2221 
bE50 
9D6A 
2221 
9DSA 
23F6 
C3A0 
2234 
4300 


2480 
2490 
41F 0 
2682 
4586 
2085 
4B80 
2691 
4590 
2068 
c780 
203F 


4560 
4380 
2681 
H1FO 
4300 


1805 


1806 


0063 


2386 


22BC 
1878 
1878 
187A 
g001 
174C 
oABO 


1248 
2258 


2624 
2525 
2826 
2827 
2828 
2629 
2830 
2831 
2832 
2833 
2634 
2835 
2836 
2837 


CLRe2A 


cMOD1 
cH1.0 
Cwmlel 


CyLADVe 


DCADeSTAT 
IDLE ei 
FUT:TRACK 
FUT*CYLCMD 
DCADeSTAT 
IDLE +1 

FUT «SEEK 
DCAD+STAT 
IDLE +1 

FUT «STAT 
15.CMOD01 
STAT+X*63* 
CLRe2A 
DRVERR 


SECT+0 
HEAD?0 
RiSWFmT 
SECT+2 


SECT +MAXSEC 


CM1e6l 


SECT *MAXSEC 


HEAD+1 


HEAD »MAXHEAD 


CM1iel 
SEC] e1 
cmM1.0 
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TRACK »HICYL+$VALUL 


OPTIN 
TRACK +7 
R15+TSTBRK 
CLRe2 


11:37309 


01/11/80 


SEEK CYLINDER 


WRITE ZEROS TO SECTOR 


STILL VALID ? 


ALL CYLINDERS DONE ? 


EXIT 


MBF 28240 
MBF 28250 
MBF 28260 
MBF 28270 
MBF28280 
MBF28290 
MBF28500 
MBF25510 
MBF 28320 
MBF 28530 
MBF28540 
MBF28550 
MBF 28560 
MBF 28570 


MBF 28390 
MBF 28400 
MBF 28410 
MBF28409 
MBF 28430 
MBF 28440 
MBF 28450 
MBF 28460 
MBF 28470 
MBF 28480 
MBF 28490 
MBF 28500 
MBF28510 - 
MBF28520 
MBF 28530 
MBF 26540 
MBF 28550. 
MBF 28560 


COMMON 2,5 AND 10 MB FORMATTER 
OATA CONSTANTS & CHECK ROUTINES 


22BC 
22C0 
22c4 
22C8 
22ca 
22CCc 
22CeE 
2200 
2202 
22D4 
2206 
220A 
220€ 
22E2 


22b6 
22EA 
22EE 
22F2 
22F4 
22F6 
22F8 
22FA 
22FC 
22FE 
2300 
2304 
2308 


230C 
230E 
2310 
2312 
2314 
23516 
2318 
231A 
231E 


guoo 
DE7O 
pa7o 
D876 
985B 
906A 
2221 
0809 
9105 
0608 
9A60 
pEeO 
DE7O 
41EQ 
4 3uU0 


UUuU0 
bE7O 
0870 
n8&70 
985B 
SU6A 
2221 
0809 
91U5 
0608 
9AG0 
OE60 
DETO 
43U0 


o0ud 
9858 
9D6A 
2221 
0609 
9105 
0608 
9Ahb0 
DESO 
4300 


228C 
1801 
1852 
1856 


1800 
1803 
1Eac 
2336 


22E6 
1801 
185A 
185E 


1804 
1802 
2336 


230C 


1807 
253E 


2858 
2859 
2860 
2861 
2862 
2563 
2864 
2865 
2866 
2667 
2668 
2869 
2870 
2471 
2672 
2673 
2674 


2576 
2877 
2378 
2879 
2880 
2681 
2682 
2683 
2884 
2885 
2886 
2887 
2888 
25689 
2390 
2591 


2893 
2894 
2695 
2896 
2897 
2698 
2899 
2900 
2901 
2702 
2903 
2304 


WEMT 


REMT 


ROCK 


eau 
oc 


* 

SLAD+STOP 
SLADsWSA+2 
SLAD«WFA+2 
FUT + TRACK 
DCAD+STAT 
IDLE+1 

RO HEAD 
ROQO,SECT 
DcA0DrRO 
OCAD+WC4D 
StL AD»GOWRITE 
R14e+PANLWRT 
SLCHWT 


* 
SLaAD*+STOP 
SLAD*RSAt+2 
SLADeRFA+2 
FUT+TRACK 
OCAG+STaT 
IDLE +1 
RO,,HEAD 
ROS 
ROeSECT 
DCADsRO 
DOCAUsRCMD 
SLAD+GOREAD 
SLCHWT 


* 

FUT+TRACK 
DCAD+sSTAT 
IOLE+1 
ROHEAD 
RO.5 
RO,SECT 
OCAD+RO 
DCAD+RCHECK 
CTRLWT 
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WRITES 1 SECTOR IN FORMAT MODE 
STOP SELCH 

SEND TRANSFER 

LIMITS 

CYL ADRESS 


CONTROLLER HEADER 


START CONTROLLER WRITE 
START SELCH WRITE, 
DISPLAY PANEL 

WAIT "TIL COMPLETE: 
RETURN ON R15 THROUGH 
STATCHK ROUTINE. 


READS ONE SECTOR IN FORMAT MODE 
STOP SELCH 

SEND TRANSFER 

LIMITS 


START SELCH READ 

WAIT *TIL COMPLETE 
RETURN ON R15 THROUGH 
STATCHK ROUTINE, 


READ-CHECKS ONE SECTOR 


START CONTROLLER READ-CHECK 
WAIT "TIL COMPLETE: 

RETURN ON R815 THROUGH 
STATCHK ROUTINE, 


MBF 28580 
MBF28590 
MBF28600 
MBF 28610 
MBF 28629 
MBF 25630 
MBF 26640 
MBF 28650 
MBF 28660 
MBF 28670 
MBF 28680 
MBF 28690 
MBF28700 
MBF28710 
MBF 28720 
MBF 28730 
MBF 26740 


MBF 28760 
MBF28770 
MBF28780 
MBF 25790 
MBF28600 
MBF26810 
MBF 28320 
MBF28830 
MBF28840 
MBF 28850 
MBF 28860 
MBF 28870 
MBF28860 
MBF 28890 
MBF28900 
MBF28910 


MBF28930 
MBF28940 
MBF28950 
MBF 28960 
MBF 28970 
MBF28980 
MBF28990 
MBF 29U00 
MBF 29010 
MBF29000 
MBF 29030 
MBF 29040 
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DATA CONSTANTS & CHECK ROUTINES 


FORMAT READ-CHECKS ONE SECTOR 


BOU0 2322 2906 FMRDCK FQU * MBF 29060 

2322 985B 2907 WHR FUT? TRACK MBF29070 
2324 3D6A 2908 SSR DCADySTAT MBF29080 
2326 2221 2909 BFBS IDLE? MBF 29090 
2328 0809 2910 LOAR RO«HEAD MBF29100 
232A 9165 2911 SLLS ROO MBF 29110 
232C 0608 2912 OAR RO SECT MBF29120 
232 9A60 2913 wD DCADeRO MBF29130 
2330 DEG®0 1804 2914 oc OCaADeRCMD MBF29140 
2334 2305 29145 B CTRLWT WAIT *TIL COMPLETE? MBF29150 
2916 * RETURN ON R15 THROUGH MBF29160 
2917 x STATCHK ROUTINE> MBF29170 

2919 * WAIT FOR I/O TO COMPLETE. MBF29190 

2920 * MBF29200 

0000 2336 2921 SLCHWT EQU * MBF29210 

2336 307A 2922 SSR SLaV+STaT MBF29220 
2338 2081 2923 BIBS 8st MBF 29230 
233A DE70 1801 2924 oc SLADsSTOP MBF29240 
233 SD6A 2925 CTRLWT SSR DCADeSTaT MBF29250 
2340 2221 2926 BF8S IDLE91 MBF 29260 
2342 9050 2927 Labs SSR FUT*#RO MBF29270 
2344 C360 9010 2928 THE ROeX*1oF MBF29280 
2348 2033 2929 BNZS LAB4Y MBF 27290 
234K C3A0 9005 2930 THI STATsX'qQ5t MBF 29300 
234E O35F 2931 BZR Ri5 MBF29310 
2932 * MBF29320 

2933 * ABNORMAL TERMINATION, MBF 29330 

2359 SD5A 2934 STATCHK SSR FuTeSTAT MBF29340 
2352 23F6 2935 BFC 15eFLGOST MBF 29350 
2354 C3A0 O0E3 2936 THI STAT«¢X*E3# MBF 29360 
2358 2234 2937 BzZS STATCHK MBF 29370 
2354 43U0 2386 2938 3 DRVERR MBF29380 
2939 MBF 29390 

2940 »* SECTOR ERROR, INCREMENT SECTOR'S DSTBL TALLY, MBF 29400 

235 2410 2941 FL&DST LIS RieU FLAG DSTBL ENTRY MBF29410 
2360 vg09 2940 LOAR ROsHEAD COMPUTE DSTAL INDEX MBF29420 
2362 2701 2943 FOST.1 sIs ROel ° MBF294%30 
2364 2114 2944 BRS FDSTe2 ° MBF 29440 
2366 4A10 1878 2945 AH R1eMAXSEC . « MBF 29450 
236A 2204 2946 Bs FOSTel ° MBF 29460 
236C 0Al18 2947 FDOST.2 AAR R1i,SECT * MBF29470 
236E 0301 240C 2948 LB ROsOSTBL(R1). TALLY THE ERROR MBF 29480 
2372 2601 2949 AIS ROel , e MBF29490 
2374 D201 24Dc¢ 2950 sTB RO,OSTBL(R1) . MBF29S00 
2378 CSFo 2008 2951 CLAI R15eRCKRTN- MBF29510 
237C O235F 2952 BNER RS MBF 29520 
Q37E 240F 2353 LIS ROW15 MBF29530 
2380 0201 240C 2954 §5TB ROOSTBL(R1) GUARANTEE SECTOR FLAS mBF29540 
2364 O30F 2955 BR R15 RETURN TO CALLER MBF 29550 


COMMON 2.5 ANO 10 MB FORMATTER 
DATA CONSTANTS & CHECK ROUTINES 


2386 
238A 
236E 
2392 
2394 
2398 


239C 
23A0 
23A2 
2304 
23A6 
235h8 
230A 
23AC 
2380 
23B2 
2384 
23R6 
23BA 
23BC 
23BE 


23C2 
25C6 


23C8 
23cc 
2300 
2304 
2308 


0000 
GOEQ . 
4800 
2137 
4#8U0 
oBb08 
6100 
2440 
0816 
2403 
C820 
4iFoO 


2386 
0081 
23C8 
1880 


25C8 
1880 


1801 


1809 


2386 


2386 


1864 


Q001 
1804 
0080 
LAFC 
1B20 


250C 
1860 
1734 
1878 


188E 


194A 
OF SE 


2957 
2958 
2959 
2960 
2961 
2962 
2963 
2964 
2965 
2966 
2967 
2968 
2969 
2970 
2971 
2972 
29735 
2974 
2975 
2976 
2977 
2978 
2979 
2980 
2981 
2962 
2983 
2964 
2985 
2986 
2987 
23988 
2989 
2990 


2992 
2993 
2994 
2995 
2996 
2997 


2998 © 


2999 
3u00 
3001 
3u02 
3003 
3004 
3005 
3006 
3007 
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* DRIVE ERROR STATUS RECOVERY ROUTINE, 


* 
DRVERR 


ORVRel 


* 
DRVR.3 


x 
STAT+sX*81?* 
DRVR.S 
ROsSKCNT 
ROel 
DRVRe3 
ROQ,SKCNT 


SLAD*+STOP 
DCAOeSTaT 
IOLE el 
RO,0 
FUT+RO 
OCADsSTAT 
IDLE +1 
FUTsRESTOC 
OCAD¢+STAT 
IDLE el 
FUT«STAT 
1,ORKVERR 
8+DRVR.1 
STAT«STAT 
DRVERR 


R15*SKRTRY 
R15 


STAT+X*018 
ERRORS 
STAT+X*g0F 
ERRORT 
ERROR13 


DRIVE STATUS ERROR DETECTED 


BRANCH$ RETRY COUNT EXHAUSTED, 


RESTORE. 


RETRY SEEK 
ORIVE OFF=LINE ? 
DRIVE WRITE-PROTECTED ? 


OTHER BAD ORIVE STATUS 


* SUBROUTINE FLAGIT FLAGS THE SPECIFIED SECTOR OR TRACKs TESTS THE 
* FLAGGED SECTOR(S)* AND OUTPUTS APPROPRIATE ERROR MESSAGES. 
* REGISTERS DESTROYED: ROR1sR2A0R15eSECT 
* 
FLAGIT Eau * 
STA R14sFLAGRET 
LH ROsFMTSEC+S$VALU1 
BNZS FLGel 
LH ROeMAXSEC 
SAR RO.SECT 
Ar RO,sPOINTER 
LIs SECTs0 
FLGel LDAR R1-eTRACK CONVT CYL ADRS TO PRINT 
LIS RO, 
LDAI R2eMSG65426 
BAL R1iS+HEXASC 


MBF29570 
MBF29580 
MBF29590 
MBF29600 
MBF29610 
MBF 29620 
MBF 29630 
MBF29640 
MBF 29650 
MBF29660 
MBF29670 
MBF29680 
MBF 296990 
MBF29700 
MBF29710 
MBF 29720 
MBF29730 
MBF29740 
MBF 29750 
MBF29766 
MBF27770 
“8F29780 
MBF 29790 
MBF27600 
MBF29610 
MBF 29820 
MBF29830 
MBF 29840 
MBF29850 
“BF29860 
MBF29870 
MBF29680 
MBF29890 
MBF29900 


MBF29920 
MBF29930 
MBF29940 
MBF29950 
MBF29960 
MBF29970 
MBF29980 
MBF29990 
MBF3UU00 
MBF30010 
MBF30020 
MBF3U030 
MBF 30040 
MBF3U050 
MBF3U060 
MBF30070 
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DATA CONSTANTS & CHECK ROUTINES 


23FE 
2402 
2406 
240A 


240€ 
2410 
2412 
2416 
241A 
241E 
2422 
2426 
24248 
242C 
242E 
2432 
2436 
243A 


243E 
2442 
2446 
2448 
245C 
2450 
2454 
2458 
 245C 
2460 
2464 
2468 
246Cc 
2470 
2474 
2478 


247C 
2476 
2480 
2482 
2484 
2486 
24BA 
2465 
2492 
2496 
2494 
249C 
249E 
24A0 
24A4 
24A8 


C820 
4H1FO 
C320 
41F0 


0819 
2402 
C820 
41F0 
cé&20 
41FO 
c820 
41FO 
2402 
0618 
c820 
4iFO 
C820 
41Fo0 


41E0 
4810 
2404 
c820 
41FO 
c820 
“LEO 
C820 
41Fo 
4810 
c820 
41FO 
C820 
41FC 
C826 
41F0 


0809 
9165 
0608 
9460 
9230 
C600 
4040 
41F0 
c850 
4800 
2135 
0888 
2135 
c650 
41F0O 
4859 


1970 
OF9E 
1992 
OF SE 


4000 
296C 
226C 
1930 
1734 


1956 
105A 
189A 


3008 
3009 
3010 
3011 
3012 
3013 
3u14 
3015 
3016 
3017 
3018 
3019 
3020 
3021 
3022 
3023 
3024 
3925 
3026 
3027 
3028 
3029 
3030 
3031 
3632 
3033 
3034 
3035 
3036 
3037 
5038 
3039 
3U490 
3u41 
3042 
3043 
3044 
3045 
3046 
3047 
3048 
3049 
3050 
3051 
3052 
3053 
3054 
3055 
3056 
3057 
3058 
3059 
3060 


FLG.2 


* 
FLG.3 


TESTO 
TEST1 


R2«M866+26 
R15 sHEXASC 
R2eMSG7+26 
R1ISsHEXASC 


R1+HEAD 
R02 


R2eMS65+30 


R1i5+sHEXASC 
R2eMSG664+30 
Ri5e«HEXASC 
R2e«MSG74+30 
R15e+HEXASC 
ROe2 
R1,SECT 
R2«MSG67+33 
R15*<HEXASC 
R2+NSG65433 
R1S5+¢HEXASC 


R1L4sENCODE 
R1eLBN 
RO, 
R2.MSG65416 
RiSHEXASC 
R2.8SG6+16 
R15¢e¢HEXASC 
R2e«MSG7+16 
R1ISe«HEXASC 
R1,LBN+2 
R2.488654+29 
RiSsHEXASC 
R2«4SG66420 
R15+HEXASC 
R2,4SG74+20 
R15e«HEXASC 


ROsHEAD 
RO,.9 
RQO,SECY 
RO-RO 
TRACK +eRO 
ROX*4o00° 
RO WTF 
R1i5SeWFMT 
R5,.4S65 


CONVT HEAD ADRS TO PRINT 


CONVT SECTOR ADRS TO PRINT 


GET LBNe 
AND CONVT Tao PRINT 


BUILD HEADER+ SETTING DEF SEC 


DEF TRK BIT 


FLAG SECTOR 
"DEF SEC FLAGGEDss.e!® 


ROsFATSEC+$VALU1 


TESTO 
SECT»SECT 
TEST1 
R5eMS66 
R1i5ePRINT 
FUT sFUTAORS 


DEF TRK MSG FOR SECTOR UO ONLY, 


"DEF TRK FLAGGEDe.e° 


MBF 30080 
MBF30090 
MBF30100 
MBF 30110 
MBF30120 
MBF30130 


MBF3U1LN0 


MBF 30150 
MBF 30160 
MBF30170 
MBF 30180 
MBF30190 
MBF 30200 
MBF30210 
MBF 30220 
MBF30230 
MBFS0240 
MBF30250 
MBF 30260 
MBF 30270 
MBF30280 
MBF30290 
MBE 30300 
MBF30310 
MBF30526 
MBF 30330 
MBF 30340 
MBF 30350 
MBF30360 
MBF 30370 
MBF 30380 
MBF 30390 
MBF3¥400 
MBF304190 
MBF30420 
MBF 30430 
MBF 30440 
MBF 30450 
MBF 30460 
MBF 30470 
MBF30480 
MBF 3U490 
MBF 30500 
MBF30510 
MBF30520 
MBF30530 
MBF 30540 
“BF 30950 
MBF39560 
MBF30570 
mearF305e0 
MBF3U5S90 
MBF 30600 


COMMON 2,5 AND 160 4B FORMATTER 
DATA CONSTANTS & CHECK ROUTINES 


24AC 
24B9 
24B2 
2466 
24B8 
24BC 
24C90 
24C4 
24C8 
24CC 
24CE 
24D0 
2404 
24D6 


41FQ 
SDG6A 
C3A0 
2137 
cé50 
41FQ 
4850 
4BEO 
4800 
0235 
2681 
4589 
U38E 
430U0 


230C 
0020 
1978 
1054 
189A 
1860 
1734 
1878 


2428 


3061 
3062 
3063 
3064 
3065 
3066 
3067 
3068 
3069 
3070 
3071 
3072 
3073 
3074 


TSTel 


PAGE 


R15e«RDCK 
DCADsSTAT 
STAT«X#208 
TSTel 
R5+MSGT 
R15*ePRINT 
FUT*FUTADRS 
R14seFLAGRET 
ROFMTSEC+SVALUL 
R14 

SECTe1 

SECT sMAXSEC 
R14 

FLGe2 
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DEFECTIVE SECTOR STATUS 7? 


"FLAG REJECTEDees? 


FMTSEC 


FMTSEC 


0; 


RETURN 


DO COMPLETE TRACK, 


MBF 30610 
MBF 30620 
MBF 30630 
MBF 30640 
MBF 39650 
MBF 30660 
MBF 30670 
MBF30680 
MBF 39690 
MBF 30700 
MBF34710 
MBF 30720 
MBF30730 
MBF30740 


ed 


COMMON 2,5 AND 16 MB FORMATTER 


DATA CONSTANTS & CHECK ROUTINES 


240A 


240C 
290C 
290C 
2610 
2810 


2c43 


2048 
2¢50 
2C54 
2csc 
ecac 
2CcFCc 
2CFC 
203C 
207C 


000 
0000 24pDB 


0060 2CKs 


3076 
3077 
3078 
3079 
3080 
3081 
3082 
3083 
3084 
3085 
3086 
3087 
3088 
3089 
3090 
3991 
3092 
3093 
3094 
3095 


PAGE 


GAP1 ocx 0 
LNZB EQU K=1 
DSTBL DS 1280 
ALIGN 4 
WTF DS 308 
ALIGN 4 
RDF os 308 


**CHKSUM ETPEROS DATA STATEMENTS 


ALIGN & 
PSWSAVE EQU * 
STBRKSV ODS 3 


SRISSAV DS 4 
SRL4SAV DS 8 
SOUTBUF OS SBUFLEN 
$INBUF DS SBUFLEN 


ALIGN 4 
RSAVE DS 64 
INTSAV Ds 64 
ERRSAVE DS 64 
*¥*END ETPEROS DATA STATEMENTS 
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DEFECTIVE SECTOR TABLE 
WRITE BUFFER 

READ BUFFER 

PPF PSw SAVE AREA (MOVES) 
STORAGE FOR TSTBRK ROUTINE 
MUST BE SEPARATE 

LENGTH IS sBUFLEN 

LENGTH IS $BUFLEN 

REGISTER SAVE AREA 


REGISTERS ON EXT/IMM INTERRUPT 
STORAGE FOR ERROR ROUTINES 


MBF30760 
MBF 30770 
MBF 30780 
MBF 30790 
MBF30800 
MBF30810 
MBF30820 
MBF 30830 
MBF30840 
MBF30850 
MBF 30860 
MBF 30870 
MBF30880 
MBF30890 
MBF 30900 
MBF30910 
MBF 30920 
MBF 3930 
MBF30940 
MBF 30950 


COMMON 2.5 AND 10 MB FORMATTER 


CHKSUM/M17 PUNCHER 


20BC 
20BE 


20C0 
20c4 
20C6 
2DCA 


20cc 
2000 
2002 
2006 


2DDA 
20DE 
20E0 


20E2 
20E6 
20E4 
2DEC 
20EE 
20F2 
20F6 


20FA 
20FE 
2E00 
2£02 
2606 


2E04 
2E0E 
2E12 


2616 
2E1A 
2E1C 
2E1£ 
2E20 
2622 
2E26 
2E2A 


2400 
9510 


C610 
242) 
C830 
2440 


9351 
O745 
c1ic 
0240 


C810 
9411 
9501 


D360 
DE60 
9060 
2081 
41F0 
cé1o 
cé3a0 


DAG1 
9D60 
2081 
c1l16 
Q1F0 


0340 
c810 
C850 


0351 
O745 
9A65 
9060 
2061 
C110 
41FO 
4360 


0A00 


24068 


0000 


2DCC 
0099 


0080 


GUTA 
v07B 


2E2E 
0080 
OOCcF 


guoo 
20FA 
2634 
9099 
OA00 
2408 


0000 


2E16 
2E2E 
20DA 


3997 
3098 
3099 
3100 
3101 
3102 
3103 
3104 
3105 
3106 
3107 
3108 
3109 
3110 
3111 
3112 
3113 
3114 
3115 
3116 
3117 
3114 
$119 
$120 
3121 
3122 
3123 
3124 
3125 
3126 
3127 
3128 
$129 
3130 
3131 
3132 
3133 
3134 
3135 
3136 
3137 
3138 
3139 
3140 
$141 


SCHKSUM 


* 
sPUNCH 


* 
$PNCH1 


* 
SPNCH2 


RO,O 
R1,RO0 


R1.,ORIGINI 
R2_1 
R3,LNZB 
R4,0 


R5e9(R1) 
R4eRS 
R1,5GEN 
R4,MNG3 


R14X"'o00sa* 
R1sR1 
ROwgwk1 


RG gX*7Ae 
R6_gX* 7H! 
REeRO 

Bal 
Ri5eSTAPL 
R1ieX*aar 
R3eX*Cr? 


R6GsO(R1) 
R6-RO 

8,1 
R1ieS$PNCH1 
R159STaAPLi 


RY, AN+3 
R1,ORIGINI 
R3,LNZ8 


R5-O0(R1) 
R4.RS 
R6,R5 
R6eRO 

&el 
R1,SPNCH2 
R15+STAPL 
STAPE 
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PUNCH M17 TAPE WITH CHECKSUM 
SELECT REG, SET 0 & CLEAR PSw 


LOAD START ADDRESS 
LOAD INCREMENT VALUE 
LOAD FINAL ADDRESS 
INITIALIZE CHKSUM BYTE 


CALCULATE CHKSUM BYTE 


CHECKSUM BYTE TO B00T LOADER 


HALT PROCESSOR 


GET BOUTDV (PUNCH) ADORESS, 
START TAPE PUNCH 


PUNCH LEADER 


PUNCH BOOT LOADER 


PUNCH ONE-FOLD GAP. 


GET CHECKSUM BYTE 
(NORMALLY X*A00") 


PUNCH PROGRAM 


PUNCH TRAILER, 
DISPLAY CHECKSUM, HALT PROCESSOR, 


MBF30970 
MBF 30780 
MBF3U9990 
MBF 31000 
MBF31010 
4BF319020 
MBF31030 
MBF3L040 
MBF31050 
MBF31060 
MBF31L070 
MBF31080 
MBF 31090 
MBF 31100 
MBF31110 
MBF31120 
MBF31130 
MBF31140 
MBF31150 
M4BF31160 
MBF 31170 
MBF311a80 
MBF31190 
MBF31200 
MBF31210 
MBF 31226 
MBF31230 
MBF 31240 
MBF31250 
MBF 31260 
MBF31270 
MBF31280 
MBF 31290 
MBF31300 
MBF31310 
MBF 31520 
MBF 31530 
MBF 31340 
MBF31550 
MBF31560 
MBF31570 
MBF31380 
MBF 31399 
MEF314%00 
MBF31410 


COMMON 2,5 AND 10 MB FORFATTER 


2E2E 
2E32 


2E34 


2638 
2E3A 
2E3C 
2E3E 
2E40 
2E42 
2E44 


2E46 


ceuo 0100 
2303 


c800 0060 


2701 
032F 
2430 
9A63 
9068 
2081 
2206 


3243 


3145 
3146 
3147 
314s 
3149 
3150 


3151 


3152 
3153 
3154 
3155 
3156 


3158 


* CHKSUM/M17 PUNCHER 


$STAPL 


* 
$TAPL1 
* 

STAPLP 


LHI 
BS 


LHI 


SIs 
BNPR 
LIs 
WOR 
SSR 
BT&S 
BS 


END 


R0O.256 
STAPLP 


RO,128 


ROel 
RiS 
R3,0 
R6,R3 
R6 RS 
Bel 
STAPLP 
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TO PUNCH BLANK LEADER 


TO PUNCH 1-FOLD GAP 


RETURN 


PUNCH BLANK FRAME 


CONTINUE. 


( 


MBF31430 


MBF 31450 
MBF 31460 
MBF 31470 
MBF31460 
MBF31490 
MBF31500 
MBF 31510 
MBF32520 
MBF31530 
MBF32540 
MBF31950 
MBF 31560 


MBF31580 


COMMON 2,5 AND 10 MB FORMATTER 


ASSEMBLED BY CAL 03-066R07-00 


START OPTIONS: 


NO CAL ERRORS 


T=16,ERLST 


NO CAL WARNINGS 


3 PASSES 
$SBRKEND 0000 
SBRKFLG 0000 
sBS.COMM 0000 
S$BUFLO 0000 
SBUFLEN coou 
SCHKSUM coo0 
SCKROUT 0000 
$CLKSTRT 0000 
SCLOCK o0g0u 
$COMM1 0000 
scaomn2 0000 
$COMMS ougd 
&CON 0000 
S$CONPAS 0000 
$DECASC oo0a00 
SDECHEX oo00 
SDECTAB 0000 
SDISPLAY 0000 
$DU.X 0009 
$ERRF IL caou 
SERRF2 0000 
SERRF 3 oood 
$ERRF4Y a000 
SERRFS 0000 
SERRFSA 0000 
SERRFG 0000 
SERRF? Q000 
SERRFS 0000 
$ERRFO 0000 
$GEN 0000 
SHEXA.1 a000 
SINBUF 0000 
$IS.DU o00U 
SKBINT 0000 
SKBRel oc00 
SKEEP «1 0000 
SKEEP 62 6000 
$KEEP1 0000 
$KEEP2 o0Qa0 
$KEEP2.1 0000 
SKEEPS ooadg 
$SKEEPS 0000 
$KEEPS.1 0000 
SKEEPS.2 a000 
SKEEP7 aa0n0 
$LCOR1 0000 
$LCOR2 000d 


16F3 
1608 
1556 
0000 
0050 
20BC 
0006 
15FF 
0001 
1582 
1598 
15CC 
OASC 
1602 
auuo 
0000 
ou00 
0000 
1312 
156C 
155C 
14F2 
14BA 
1568 
1564 
14BE 
1550 
1554 
1558 
20cc 
OF AS 
2cac 
1310 
0000 
134E 
oc9c 
OCA4 
occ2 
occe 
OcEC 
on42 
oDé6Cc 
0D86 
0D8e 
Ouse 
1372 
1388 


1015 
231 
1576 
8Ux 
56% 
3097 
Sls 
168Ux 
78x 
1627 
1638 
1652 
208 
1154 
Tox 
75% 
T4x 
79% 
1249 
1558 
1324 
1331 
1451 
1383 
1362 
1462 
1386 
1380 
1349 
3105 
869% 
267 
1233 
17x 
1277 
453 
458 
473% 
475% 
484 
511 
478 
544 
S47 
552 
13508 
1315 


(32-B81T) 


1744*" 

1911 1012 1179 1204 1690%* 
1581 1586 

949 1058 

762 1113 3089 3099 


275 279 297 394 406 4Q93 


788 790 808 
1629 1632 


1234 1275 1683 


1523* 1564 
1457 1497 


277 306 436 761 1108 2147 
1242 1247 1250« 
1280 1592 1443 1686 


4gl* 460 


489 532 


1311 
1316* 
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421 


3090« 


01/11/86 


424 


919 


922 


93a 


943 


SLCORS 
SLCORSA 
$LCOR4 
$LCORS 
SLCORXTIT 
SLINCNT 
$LINEPOS 
$LOQK 
$LOOK.0 
$LOOK.1 
SLOOK 22 
SLOOK.3 
$LOOK.S 
$LO00OK.6 
$LSTB.0 
$LSTBe1 
$LSTBe2 
$LSTB.2A 
S$LSTBe2B 
$LSTB.2C 
$LSTB.A 
SLSTB.B 
$LSTBIT 
SLSTPAS 
SMAXIO 
$44,121 
$MM,.2 
$MM,3 
$MM.3A 
$4416.01 
$MSGPRT 
SMSGPRT1 
SNOT2OU 
SOPT.O 
SOPT 2 
SOPT 3S 
SOPT«5S 
$OPT +6 
SOPTeA 
Z0PT+B 
SOP TNAME 
SOPTPRT 
SOPTV.0 
SOPTV.2 
SOPTV.3 
$OTC 0 
$OTCel 
$O0TCe2 
SOTC.3 
S$OTC 4 
$0TC.5 
$0TC eS 
SOTC.7 
sOuTBUF 
$P0 


Good 
2000 
c00u 
og00 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
co00 
0000 
goog 


156C 
13c4 
1302 
15FC 
1424 
175A 
1612 
OADS& 
OAEO 
OAE2 
OAEC 
OBOE 
0B36 
OB4C 
OFEO 
OFFS 
1002 
1004 
1020 
1030 
OF D4 
OFDE 
OFC4 
1604 
0006 
1524 
152A 
153A 
154C 
1516 
OF 20 
OF 30 
130C 
OBEE 
0C04 
OC2E 
OC46 
OC7A 
OBFA 
ocoo 
0000 
08D6 
OF42 
OF SC 
OF 68 
10€0 
19£4 
10F0 
10F8 
110C 
1114 
112Cc 
1132 
2csc 
105A 


1321 
1345% 
1352 
1372* 
1387* 


' 433 


1080 
44U 
275 


276 
279% 


30U* 
934 
927* 


932* 
Sylx 
946% 
942 
919* 
909* 
1238 
389. 
1539* 
1541* 
1540 
157% 
1535* 
690 
7Tu8* 
1248% 
394% 
407- 
419% 


426% 


431 
434 


386% 
766 
773 
775* 
1038 
1035 
1040 
1035* 
1034 
105v 
1054 
1045 
409 
9a1* 


1766* 
1695* 


1684 
.1L22 


1541 


703 


441 


777 


1042 


1048 
421 


1564% 


T43% 


1053 
424 


1¢55« 
568 


PASE 67 


569 


112373569 


574, 


925 


01/11/80 


328 


936 


977 


3089x 


Lod 
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sP1 0000 105E 968 978 9a2% 1112 

SPAUSE 0000 1626 1027 10932 luge 1702". 
SPNCH1 0000 20FA 31244 3127 

sPNCH2 0099 2&16 3134*% 3139 

SPRINT ooco 1642 233 235 507 512 563 565 970* 1017 1170 1211 1515 1661 2131 
SPRT.2 occu 1080 994% 1000 1003 

SPRTe3 0000 109€ 997 1005* 

SPRT 4 0000 10CE 1016 1019 

SPRTFLG ooo00 1614 1001 1010 1205 1696 
SPUNCH 0000 20E2 3116 

SRIGSAY 0000 2C54 671 678 687 696 709 725 738 750 1305 1389 3088« 
$RISSAV good 2C50 603 607 612 $17 623 629 662 3087% 
$2581N 0000 0000 Tax 840 

$RD.1 0000 113C 1078* 1106 

$ROW 0000 113£ 1079%« 1107 1114 

$RO.S 0000 1144 1081l* 1115 

$RO.350 o000 1164 1087 1093 

$RO.4 ocao 1172 1095 1097* 

$RoO.5 0000 118€ 1102 110>* 

BRO.G6 0000 1198 1104 1108* 

$RD.7 0000 11AA 4110 1115* 

SREAD coud 1138 254 435 1077* 

SRSAVRET Q000 OF9A 836% 877 985 9392 1013 
SRUNe1 ocoo0 ocas 446 4Ydx 

SRUNLT ogou0 OC7E 282 4yS* 

SSETUP go000 1350 1043 1295* 

SSHUTOWN Q000 1622 543 1703* 

$STCeol o0o00 11C6 1124 1126* 

$STCe2 coco 11¢cCc 1127 1129* 

$STCe3S ooo0 116A 1134 .1139*% 

SSTCe4 g000 122A 1156 1159* 

$STCeS 0000 1238 1162 1164* 

SSTIAL 00U0 OFB8D 798% aoo 

SSTRUC1 0000 o00Cc 49x 54 261 262 426 
STAPE 0000 20DA 3110* 3141 

STAPL 0000 2E2E 3120 3140 3145* 

$TAPL1 0000 2634 3128 3148* 

$TAPLP 0000 2£38 3146 315U* 3156 

$TBRKSV 0000 2cK4s 1177 1185 3086* 

$TESTOP 0000 0854 288 304*« 

$TIMER 0000 OF7C 789* 1471 

STIMRET 0000 oF92 804 B29 

STIMVAL 0000 OASA 207* 800 

STIMXT 0000 OF96 830% 1473 

STSTBel 0000 1258 1163% 1195 1197 1200 1219 
$TSTBe1A 0000 125€ 1185* 1206 

$TSTB.2 0000 1264 1181 1188* 

$TSTB.3 0000 1276 1191 1193* 

STSTB.4 aco0 1290 1202x 1227 

STSTB.5 0000 12B4 1193 1219* 

$TSTB.6 0000 12C2 1217 1220* 1226 

$TST8.7 0000 12c8 1222% 1224 

$TSTOU.1 0000 12F4 1237 1239% 

$TSTOP.1 0000 0870 314% 328 

$TSTOP.3 OG00 OBSA 321 324s 


COMMON 2,5 AND 10 MB FORMATTER 


STSTOP.4 
STSTOP.5 
SVALU1 


SVALU2 


_ SswASOu 


$XI1 
$XI16 
$X116A 
$XI2 
$X13 
$XI32 


$XI4 


aPRINT 
ABORT 
ABSTOP 
apc 


ADR 


-AMSG 


ASCIDEV 
ASCIDEV2 


_ ASCILOC 


ASCIMSW 
ASCIPSw 


’ ASCISTA 


ROOT 

BRK .eSAV 
BRKMSG 
BRKYECT 
BTESTNO 
C300A0R 


_CAR2ND 


CARRD 
CARRQ2S 
CLEAR. 
CLIF2ND0 
CLIFADOR 
CLIFRD 
CLR,O 
CLR.1 
CLR.2 
CLR.2A 
CLR.MOD 
cM1,0 
cM1,1 
cool 
comm 
CON 
CON2ND 
CONCMD 
CONENRD 


oGo00 
0000 
oGo00 


oo00 
0000 
0090 
00900 
0600 
0900 
ooou 
0600 
0000 
coa0 
0000 
0000 
0000 


0000 


o00cu 
ocoo 
0000 
0600 
0o0g 
0008 
006 
o6aD 
0960 
O060 
oGg00 
ocada 
0009 
0600 
0000 
oogu 
000d 
0000 
0000 
0090 
e000 
0000 
0000 
0000 
0000 
oo0u 
0600 
0006 
00900 
0000 
0000 
0606 
0000 


oB8C 
OB9A 
0008 


OO0A 
1616 
1458 


‘142A 


1442 


1468. 


1404 
1438 


14A8 © 


1050 
oD6C 
2E46 
0002 


OBC6 
16D8 
1670 
1681 
16A7 
168E 
1698 


1678 


0088 
1626 
16DA 
1606 
161C 
OAIE 
DA42 
GA4O 
OA4KC 
178C 
OA3A 
OA16 
0A38 
224C 
2254 
2258 
227A 
2254 
228A 
228C 
2288 
1572 
175¢ 
D430 
0A32 
0A31 


323 
308 
52x 
19586 
2392 
3069 
53% 
237 
1450x 


' 1365 


1425 
1453 
1472 
1317 
1476 
425 
536% 


436 
971 


' 4601 
BUI% - 


250 
639. 
682 
735 
1659 
716 
691 
103 
1705 
1016 
1164 
“74 
158% 
189% 
188 
198s 
1771 
185% 
154% 
184% 
2817 
2820% 
2821 
2833% 
1771 
2840" 
2841 
2834 
1586 
285 
179% 
181 
180% 


323% 

326 

230 
1970 
2396 


331 

547 
1455 
1421 


1432 


1456* 
1474 
1428+ 
1476 
577 


219 
975 


1613 


1757 


1741* | 
172d% 


1729% 
1735* 
1731* 
1733% 
704 
106* 


1212 
1208. 
479 


2818 


2856 
2836 
2808 
2850 
2844 
2839 
1591 
1767*% 
180 
1137 


330% 

300 330 
2012 2016 
2621 2630 

452 1766 

562 987 
1477x 
1478x* 

940 945 

643 644 


1513) 1325 
1618 ©1625 
1758 


1727x 

1742 

1203 1589% 
479 522 

2848 

1599 1610 
1150 

1147 1149 


PAGE 


412 419 
2020 2031 
2653 2749 


1251 1253 


976% 


646 670 
1332 1339 
1649 


1700* 1934 


1624 


1239 
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455 488 
2076 2104 
2741 2810 
1697 

712 729 
1355 1420 
2275 


01/11/80 


430 
2111 
2811 


743 
1467 


541 
2285 
2820 


744 
1487 


991 
2366 
2852 


T4T 
1525 


1178 
2367 
299a 


758 
1565 


1232 
2368 
3054 


970 
1596 
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CONRADR 0000 OA2ZA 174* 1144 iilaa 1272 1442 

CONRD 0000 OAZE 177 178 1148 1159 1273 
CONRG2]S G00G0 GCA48 194% 1131 1152 1153 1163 1278 
CONTIN 0900 1784 541 1775* : : 
CONWADOR 0000 OA2C 175% 1088 1146 

CONWRT 0000 GA2F 178* 10a9 

COUNT 0000 161E 481 1701* 

CRLF 0000 1036 232 245 464 966% 1641 
CRLEMSG 000G 16F8 967 1111 1746 

CRT2ND 0000 OA36 183* 

CRTRV 0000 OAS4 182 

CRTRA2S 0000 OA49 195 

CTRLWT OUO0U 233E 2902 2915 2925 

CYLADV1 0000 2110 2373 2614 2621* 

CYLAOVe 0006 22AA 2821 2652 ‘ 

CYLAOV3 0000 2166 2631 2649 2653* 

CYLCMD ooouU 1805 1814% 2827 i. * 
CYLNUM ooou 1890 1871« 2065 2u90 2093 2248 2372 2742 
CYLTAB 0006 1816 1827« 1980 

DATAS ocud 1644 1845* 2398 

DATAB1 0000 184C 1847* 2400 ; 

ocan oGov 0005 1799% 2366 2376 2377 2380 2494 2499 2500 2505 2634 2638 274n 2749 


27392 275° 2510 2824 2828 2831 2863 2868 2869 2881 2886 2887 2895 
2900 2901 2908 2913 2914 2925 2968 2972. 2975 3062 


DEC.Y 0000 1E€50 2224 2228* 

NEC.1 0000 1£&58 2227 2230% 2238 2240 

DEC.2 ocoo 1£68 2231 2235 2236* 

BEC.S oooc 1&78 2235 2241% 2246 

DEC .4 0000 1£84 2242 2245% 

vec,.S o00Gcg0 1E88 2244 22uT 

DECODE 0000 1E3A 2057 £2219% 

DEFTESTS 0000 1874 304 305 1858 

DEVINT OugUu 17E2 1456 1790* 

DEVMSG 0000 166C 7a5 1724* 1725 1726 1727 

NEVMSG2 0000 167D 683 1728* 1729 ; 
DEVSAOR 0000 17CC 1456 1778 2014 2018 2023 2027 2122 
DISCON 0000 1708 490 1757*« 2016 2366 2740 2810 

ORIVE 0000 16FC 1756 1917 1970 2031 

DRVERR 0000 2386 2417 2642 2/64 2837 2938 2959" 2978 2981 
DRVRel 0000 2384 eo977«x 2979 

DORVReS 0000 23C8 2961. 2964 2986% 

OSTBL 0000 24DC 2388 2611 2948 2950 2954 3078* 
DSTSIZ 0000 1896 1874* 1994 1997 2204 2239 2234 #2387 #2609 
ENC.1 0000 1£10 2199% 2205 

ENC.2 0000 1E1A 2200 2202 

Enc.3 0000 1E1E 2198 2204" 

ENC.# 0000 1€26 2207% 2211 

ENC,5 0000 1E30 2208 2210 

ENC.6 0000 1634 2206 2212* 

ENCODE 0000 10F8 2091 219u*% 2260 3028 

EQTMSG 0000 16C¢5 1738% 

ERR 0000 ODE2 603% 1642 

ERR1 0000 QE&6 647 671* 

ERRALL oco0 QE22 629% 1507 
ERRCOM oogu OE30 604 608 613 618 625 630 G37" 


COMMON 2.5 AND 10 MB FORMATTER 


ERRCOM1 
ERRCOM2 
ERRD 
ERRDOL 
ERROEV 
ERRDS 
ERROS1 
ERRL 
ERRL1I 
ERRL1A 
ERRLYL 
ERRMSG 
ERRNO 
ERRORI 
ERRORLO 
ERRORIL 
ERRORS 
ERROR2 
ERRORS 
ERRORG 
ERRORS 
ERRORS 
ERROR7T 
ERRORS 
ERRPL1 
ERRPLIA 
ERRPL1B 
ERRS 
ERRS1 


ERRSAVE - 
ERRSTA . . 


ETESTNO 
FATAL 


FLAGIT 
FLAGRET 
FLAGSECT 
FLGsl 
FLG.2 
FLG.3 
FLG,M1- 
FLG.M2 
FLG.MO0D 
FLGOST 
FMROCK 
FRSUel1 
FMSUe2 
FMSU.3 


0000 
0000 
ooo0 
6000 
0000 
0000 
ooo 
0000 


0000. 


0000 


0000 


0000 


- OG00 


0000 
0000 
0000 


* 90900 


e000 
e000 


9000 
- 6000 


9000 


C000. 


ooo0 
e000 


2008 


Go00 
D000 
9000 
0000 


0000: 


0000 
e000 
0G00 
9a00 
oo00 
0006 
0000 
0000 


9000 
9000 


0G00 
0000 
0000 
0000 


6000 


coa00 
0000 
0g00 
baad 
0000 
0000 
0000 
0000 
0000 


OESC 
OE7TC 
ODEC 
0£90 
15FA 
0E04 
0EB4 
0E12 
GEF6 
OF OE 
16C3 
1646 
164E 
1AB8 
1BOoCc 
1B14 


.1B20 


1ACO 
1ACc8 
1AD4 
1AEC 
LAF 
1AFC 
1B04 
OED4 
OEES 
OEFE 


ODFS8 


OEA2 
207C 
iSFC 
164C 
1868 
1FB2 
1FB4 
1FB6 
2362 
236C 
1768 
1628 
1780 
230C 
1860 
2174 
23Fe2 
242A 
247C 
221E 
222c 
21E4 
235€ 
2522 
10C6 
10D4 
iDEC 


619 
661% 


619 
696 


696* 


725* 

735* 
1737 
1719* 
1509 
2112 
1969 


2990 
210° 
1905* 
2109 
2651 
1971 
2989 
29387 
ToI* 
718* 
727* 


620 

661 

702 
1720 
1996 


2468 
2462 
2946 
2947 
2392 
346 
1770* 
2768 
2997 
2659* 
3004* 
3074 


2763 
2768* 
204e 
2935 
2906* 
“2184 
2176 
2183 
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615 621 627 633 651% 


678% 

1675* 

1720 1721 

1634 1643 1721s 
2114 


2107 2116 
2038 
2745 


2032 


1645 


687* 
910 946 2662 2664 2671 2692 
1677 


1910 1926 1942 1952 1969 


2466 


2396 
1/06* 


2996* 
3068 


2738* 
2941 


01/11/80 


3094 
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FASUDF C000 i1DBE 2167 2559 © 2756 

FMSUOFA oca0 10c¢4 2169 _ 

FMT,1 ocao 1F04 2371«% 2625 

FAT.1A ocou’ 1F30 2368% 23389 

FMT.1B 0000 1F7C 2415*% 2419 

FMT.MOD 0000 1EF4 1769 2034 2364 

FMTSEC 0000 172C 1760« 2076 2998 3054 3669 

FORMAT coco 1774 281 1769* 

FUT 00Gc0 oG0Sd 1798* 2365 23579 2382 2415 2493 2636 2637 2640 2739 2751 2754 2760 


2809 2826 2827 2830 2833 2862 2880 2894 2907 2927 2934 2971 2974 
“297T 3060 3067 


FUTAURS o000 189A . 502 1876* 2365 2739 2809 3060 3067 
GAPI OGGO 24DA 2172 3076* 

GAPSIZE oggod 1884 1865% 1987 

GAPTAB eaodg 182C 1636* 1986 

GOREAD 0000 1802 1811l* 2501 2888 

GOWRITE oGGo0 1803 1812+ 2870 

HADVI 00G0 1F9E 2444% 

HADV2 0000 1FC6 2464% 

HADVS  QG000 208E 2574* 

HAQV4 0000 20€4 2590% 

HALTY 0000 GDS8E 238 550 556 660 988 

HEAQ ocou 0009 1802*% 2089 2096 2097 2197 2220 2245 2249 2257 2262 2272 2438 2444 


2445 2458 2464 2465 2478 2496 2545 2546 2561 2562 es74 2575 2584 
2590 2591 2629 2676 2743 2640 2846 2847 2865 2885 28397 2910 2942 


3013 3045 
4EAONUM ooov 1892 1872% 2072 2089 2096 2249 2743 
HEDTAB oo00 1810 1825* 1978 
HEXASC OGOU OFIE 422 505 573 576 700 720 736 746 865% 929 1660 1912 1931 


2129 2675 2679 2682 2686 2689 3007 3009 3011 3016 3018 3020 3024 
3026 3032 3034 3036 3039 3041 3043 


HEX TAB 0000 162C rag) 872 1512 1712« 1935 2148 

HICYL ocao 1744 1762*% 1905 2104 2621 2630 2852 

IDLE 0000 0002 1808 2378 2381 2495 2506 2635 2639 2750 2753 2759 2825 2829 2832 
2864 2882 2896 2909 2926 2969 2973 2976 

ILLAOOD 0000 1€C4 2110 2118 (2282% 2374 2632 2746 2822 

IMPTOP 0G00 0000R 

INCR oooc 15FE 1679% 2270 

INCRMT 0000 1882 1864*% 1982 2538 2543 

INCRTAB 0000 1822 1631* 1984 

INDEX - g000 188C 1869% 2395 2412 92551 

INDXTAB 0000 181C 1829*% 1982 i 

INT.U 0aGco 1B7E 1961* 1966 

INI.OA 0000 1890 1962 § 1967% 

INI.1 0600 1BaA0 1968 | 1973 

INI.1A 0000 18CE 1985 

INI.2 ooou 1BF8 1997* (1999 

INI.3 | oo00 1044 2021. -2029 

INI.3A - 0000 1C56 2025.  2027* 

INI.4 ' 99090 1C72 2036+ 2037 

INI.9 ao00 1024 2039 2043 2104 

INI.6 ouad 1D5A 2102 212U% 

INI,6A - 0000 105E€ 2122% 2134 

INI.’ 00GG 1086 2123 =62135* 

INISYS 6009 1D80 2126 2133* 


COMBRON 2,5 AND 10 MB FORMATTER 


INIT 
INITRET 
INTDEV 
INTLEV 
INTLVL 
INTLVLM 
INTPSW 
INTSAV 
INTSTA 
10 


TOSAVE 
ISITERR 
KBREAD 
LAB1 
LAB 
LABS 
LABY 
LADC 
LBN 


LCORE 
LOWT 
LEADER 
LEVEL 
LNZB 
LOAD 
LOCMSG 
LOcYL 
Loop 
LPADR 
LPCNT 
LPWRT 
LRECL 
LRECLTAR 
MAXCYL 
MAXDEX 
MAYHEAD 
MAXSEC 


MAXTST 
MEF 
“ICROBUS 
MMSW 
“4M SWASG 


0009 
0000 
0000 
0000 
0000 
ooud 
0000 
e000 
0000 
ocou 


0000 
0000 
0000 
Go00 
0000 
0000 
6000 
g000 
0000 


0000 
occu 
0000 
0000 
6000 
0000 
0006 
0000 
0000 
0000 
9000 
6006 
0000 
6000 
0000 
0000 
0000 
0000 


0000 
0600 
0o06 
00095 
0000 
e000 
0900 
oog00 
oocd 
ocae 


0000 
0000 
0000 
0000 


1B74 
ocB4y 
15FA 
17A8 
17F6 
16AE 
15F0 
203C 
15FC 
oAl0 


166A 


‘160C 


1334 
oD08 
0012 
ODiA 
2342 
0001 
186C 


1368 
00c8 
00A2 
OBCE 
2408 
OoAC 
16A3 
1738 
179C 
OALA 
1898 
GA3C 
1886 
1832 
187C 
187E 
187A 
1378 


189E€ 
1A80 
0A22 
15F4 
1685 
0096 
1F8A 
1FAC 
1FDE 
15F8 


2094 
2600 
DA4S4 
18CCc 


465 

YOGx% 
1439 
1774 
1461 
1516 
1429 


1421 


1440 
150% 
1266 
393 
225 
1081 
494% 
495 
499 
292T* 
§23 
1856% 
2684 
228 
129 
113% 
353% 
107 
118x 
726 
1761x 
1773 
156x 
1875 
186% 
1866 
1838% 
1861 


1862« 


1860x 
1859 
2539 
315 
343 
160% 
1528 
1662 
110% 
2413 
2454% 
2478 
225 
2052 
2559% 
2583 
190% 
256 


1957* 
2137 
1674 


1793* 
1736* 
167uU* 
1477 
1676* 
43U 
1266 
429 
247 
1272* 
497 
4Q8x 
501* 
2929 


2055 
268f 
462 
132 
117 


“3077* 


126 
1734% 
1991 


2455 


1939 
1988 
1981 
1983 
1979 
1977 
254e¢ 
1878* 
1898« 


1531 
1730% 
3108 
2437* 


714 
215% 


1882 


1675 


1737 


1499 
1677 
910 
1298 
~1Lu24y 
482 


2056 
3029 
13905* 


3102 


2111 


2470 
2181 


2094 
2391 
1996 
1995 
2574 


1536 
1731 
3130 


731 
2223 


3093x 


1085 


~ 1235 


520 


2194 
3037 


3132 


' 2368 


2106 
2411 
2097 
2100 
2573 


1538 


1314 
2237 


1120 


1261 
642 


2195 


2653 


2113 
2445 


2196 
2587 


1650 


1340 
2482 
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1121 


1267 
652 


2199 


2620 


2465 
2241 
2589 


1653 


1356 


1129 1130 
1296 1691+ 
999 1014 
2201 2207 
2546 2575 
2243 2259 
2843 2845 

1671 
1469 1488 


01/11/60 


1136 


1514 


2202 


2591 
2261 
2945 


1526 


1145 


1635 


2229 


2847 
2u41 
3000 


1567 


1145 


1644 


2226 


2443 
3072 


1626 


1189 1236 
1692% 2130 
2228 2229 


2464 2463 


1651 1675% 


ite 


COMMON 2.5 AND 10 MB FORMATTER PAGE 7% 113237309 061/11760 


MSG10 Go00 19€8 1892% 1944 1948 

MSG611 ao000 1A00 1893«% 19435 

MSG12 0000 1A16 503 508 513 1894*% 

48613 0000 1A28 1895* 1919 1936 

MSG15 0000 1A42 1896x 1921 1937 

M3616 0000 1A56 1897« 1930 1932 1938 

MSG2 0000 18€2 1883*% 1905 

MSG3 0a00 16F0 1884 1931 1913 

MSG4 0000 1918 1885* 1886 

aSGS 0000 1930 1887* 3006 . 3415 ©3025 3031 3038 3053 
MSG6 0000 1956 1888+ 3008 3u17 3033 3040 3058 

MSG7 0000 1978 1869% 3091U 3u19 3023 3035 3042 3065 
MSGB 0000 19A4 1890* 1925 

“S69 ovoo0 19c2 1891l* 2674 2678 2681 2685 2688 2690 
MTESTNO OGOG 1642 640 1717* 

NEWPSw ocev 158 525 526 1468 1478 1669 

NOERMSG aoou 1663 1723% 

NWOERR 0000 160E£ 654 1693* 

NOMSG oo0v0 17C0 230 991 1178 1232 1776 

NORM 0000 15F0 1678% 2276 

NULLMSG oGuO 16F4 564 1749" 41746 

OLDPSw oo0eg 15£0 624 710 727 1441 1493 1632 1668 
apt 9000 36FC 261 397 1754" 

OPTENO . 0000 1750 1763 

OPTEND2 cooo 1750 427 1764 

OPTIN e000 OABO 243% 1098 1100 1663 2136 2769 2853 
OPTINA 0000 OABS 246x 301 3532 428 43a 548 1019 1172 1213 1517 1647 1954 
OPTION 0000 1750 283 394 1765* 41766 

‘OPTRIN o000 OBF6 395 397% 

OPTVAL oo00 OF3E 294 314 $88 757% 

ORIGIN 0000 OA0O 106 135* 31900 3131 

GRIGIN2 0000 OA04 137 

GRIGINS 0000 OA0S 138* 

ORIGING 0000 oA0cC 139 

ousYS 0000 1918 1866% 2128 2132 

OUT.SAV 0000 1624 1023 1055 1704*« oO 

OUTCHR o000 1002 251 253 995 1006 1008 1023 
QUTSYS ooo00 106C 2127% 

PACTYP 0000 1720 1759% 1925 1956 2020 2283 

PANLWRT o00c0 1EAC 2269*% 2646 2871 

PASLAOR o000 0A12 152% 124 

PATLOOP oo00 1F44 2393 2395*% 2553 

PATLOOP1 0000 1F54 2397 2400* 

PATLOOP2 0000 1F58 23599 2401 

PATLP1 0000 1FAE 2455" 2472 

POINTER 0000 1886 1870% 2660 2665 3002 

PRECL 0000 1868 1867x 1991 2004 2405 2517 2529 2815 
PRECLTAB 0000 1838 1840* 1990 

PRINT 0600 105A 345 737 749 980* 1951 2691 3059 3066 
PRINTIT 0000 1860 1907 1914 1916 1927 1939 1950% 
PROTECT 0000 189C 1877* 2567 

PSW og00 OA50 2U2x 521 

Pswe 0000 QA52 203 241 246 530 638 1465 1505 1557 1636 
PSW3 0000 QA54 204% 

PSWMSG 0000 1697 719 1732* 1733 1734 1735 


i+ : ‘a ‘6 
3 ‘ 
- « vv i « < 


COMMON 2.5 AND 10 MB FORMATTER 


PSHSAVE 
PURETOP 
8MSG 
QUESTN 
RO 


R1 


R19 


R11 
R12 


R13 


0060 
0000 
0000 
ooG0 
0000 


0000 


0000 


9000 
coo0 


0000 


2048 
OGO0OR 
16B4 
123A 
0000 


0001 


OO0A 


6008 
oooc 


000p 


104 


1171 
260 
82x 
429 
491 
561 
679 
866 
1044 
1243 
1299 
1475 
1637 
1976 
19893 
2009 
2157 
2223 
2388 
2497 
2662 
2883 
2928 
2998 
3049 
3156 
83% 
283 
477 
574 
728 


1030 


1120 
1231 
1254 
1319 
1558 
1936 
1978 
2023 
2115 
2230 
2409 
2684 
3022 
3127 
92x 
2147 
93x 
94, 
392 
2098 
95% 


105 1354 
1740 
1169* 

222 223 
430 +32 
496 500 
562 570 
688 697 
910 Fil 
1051 1052 


1251 1252 
1396 1358 
1477 1488 
1651 1658 
1977 1978 
1990 1991 
2010 2031 
2172 2175 
2228 2232 
2392 2396 
2498 2499 
2664 2671 
288% 2885 
2942 2943 
30Qu 3001 
3050 5051 


106 118 
289 287 
479 +83 
638 639 
798 801 


1032 1035 
1123 1125 
1232 1235 
1299 1296 
1320 1348 
1564 1566 
1942 1942 
1989 1782 
2027 2028 
2117 2122 
2234 2244 
2514 2521 
2687 2813 
3029 5037 
3131 3134 
1424 1428 


260 265 
448 645 
2101 

646 649 


3085 


224 

433 

502 

577 

701 

917 
1077 
1253 
1309 
1490 
19609 
1979 
1993 
2036 
2177 
2269 
2398 
2513 
2673 
2886 
2948 
3002 
3054 


119 

297 

486 

653 

869 
1036 
1129 
1236 
1297 
1350 
1636 
1944 
1984 
2033 
2124 
2243 
2527 
2817 
3098 
3139 
1428 


293 
648 


327 


225 
452 
504 
578 
713 
931 
1082 
1260 
1314 
15906 
1910 
1980 
1994 
2055 
2178 
2270 
2400 


2519 


2677 
2397 
2949 
3005 
3069 


121 

300 

492 

654 

912 
1037 
11490 
1239 
1298 
1351 
1637 
1946 
1986 
2034 
2144 
2247 
2533 
2818 


3100. 


1459 


236 
774 


930 
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229 
455 
510 
637 
717 
946 
1084 
1261 
1317 
1526 
1929 
1981 
1995 
2076 
2191 
2271 
2461 
2562 


- 2683 


2898 
2950 
3014 
3097 


126 

400 

498 

655 

918 
1039 
12441 
1240 
1293 
1356 
1650 
1959 
1988 
2042 
2158 
2258 
2607 
2941 
3105 


1469 
310 
2051 


1076 


75 11237309 


230 
457 
519 
639 
736 
966 
1136 
1266 
1319 
1537 
1943 
1982 
1997 
2104 
2193 


2272 - 


2406 
2563 
2692 
2899 
2953 
3021 


3098 


24a 
403 
530 
657 
932 
1042 
1142 
1241 


- 1300 


(1431 
1908 
1960 

/1999 
2056 
2167 
2273 
2611 
2945 
3107 


1461 
316 
2062 


1079 


231 

467 

520 

640 

734 

S76 
1137 
41267 
1346 
1538 
1944 
1983 
2001 
2106 
2194 
2e7Hh 
2454 
2564 
2812 
29090 
2954 


‘3030 


3112 


261 

404 

531 

658 

933 
1043 
1143 
1245 
1301 
1464 
1928 
1961 
1996 
2065 
2176 
2274 
2613 
2947 
3110 


1512 
329 
2064 


1080 


01/11/80 


492 
468 
531 
641 
797 
981 
1140 
1272 
1349 
1541 
1952 
1984 
2002 
2108 
2197 
2275 
2455 
2565 
2817 
2910 
2962 
3045 © 
3118 


262 

406 

541 

680 

941 
1044 
1145 
1246 
1307 
1471 
1934 
1963 
1998 
2072 
2196 
2365 
2660 
2948 
3111 


1912 
339 
2071 


1105 


4Q5 
469 
538 
642 
802 
982 
1151 
1273 
1350 
1542 
1969 
1985 
2005 
2124 
2202 
2276 
2470 


2565 


2865 
2911 
2963 
3046 
3125 


264% 
419 
555 
689 
987 
1046 
1147 


“1248 


1398 
1475 
1935 


1964 


2004 
2075 
2199 
2388 
2665 
2950 
3111 


1515 
342 
2079 


1108 


423 

474 

547 

652 

836 

994 
1238 
127a 
1430 
1567 
1973 
1987 
2007 
2127 
2219 
2283 
2482 
2567 
2867 
2913 
2979 
3048 
3145 


279 
47§ 
555 
7702 
1025 
1049 


° 1151 


1252 
1i3ig 
1506 
1936 
1975 
2009 
2111 
2207 
2401 
2676 
3004 
3121 


2068 
355 
2087 


1523 


424 

490 

§55 

661 

ges 

991 
1243 
4298 
1463 
1626 
1974 
1988 
2008 
2143 
2212 
2384 
2496 
2568 
2868 
2927 
2972 
3u4s 
3148 


281 

476 

572 

711 
1027 
1052 
21152 
1254 
1318 
1557 
1937 
1976 
2019 
2115 
2229 
2407 
2680 
3013 
3124 


2081 


390 
2095 


15235 
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1536 1539 2154 2169 2182 2481 2464 2507 


R14 0000 O00EF 96% 211 213 214 227 294 297 299 314 317 318 319 322 
324 388 487 521 525 543 545 624 647 648 649 674 672 
678 681 687 690 696 703 709 710 711 725 727 73a 739 
743 744 745 747 748 750 751 763 768 784 1165 1177 1185 


1158 1194 1198 1207 1209 1215 1218 1220 1224 1395 1323 1326 1328 
1350 1335 1535 1337 1342 1345 1347 1363 1366 1381 1384 1387 1389 
1423 1430 1441 1465 1468 1524 1535 1630 1632 1638 1645 2045 2097 
2069 2084 2091 2109 2151 2213 2251 2277 2288 2292 2297 2373 2480 
2508 2520 2522 2532 2631 2646 2661 2663 26T0 2745 2768 2821 2871 
2997 3028 3066 3070 3073 


R15 0000 O0OF 97% 212 228 232 233 235 237 244 245 249 251 253 254 
279 28U 239 338 344 345 346 347 350 354 396 413 422 
425 435 451 454 459 461 462 464 465 466 505 506 5u7 
509 512 218 522 523 524 540 545 551 563 565 S73 376 
579 60% 604 607 608 612 613 617 618 623 625 629 640 
644 644 e45 646 659 662 663 700 720 728 731 736 737 
746 74? 169 770 772 776 830 837 929 940 945 947 9°90 
971 972 973 984 995 1002 1006 1008 1009 1oil 1014 1017 10235 


1028 1955 1056 1139 1169 1170 1178 1179 1180 1183 1184 1186 1149 
119y 119200119400 1196) 11198 )=—s-1199ss- 1199) 1203 )= 1204 «1205 1298 +%&wl2ig 122k 
1215 1216 1218 1220 1221 1222 1224 1225. 1256 12624 1268 1324 1331 
1358 136¢ 1565 1372 1373 1380 1383 1386 1390 1431 1464 1466 1507 
1515 1639 1641 1642 1660 1661 1912 1931 1950 1951 2052 2110 2118 
2126 2129 2130 2131 2135 2146 2148 2150 2158 2171 2284 2286 2290 
2294 2296 2574 2375 2439 2459 2479 2524 2559 2569 2585 2623 2632 
2633 264uT 2675 2679 2682 2686 2689 2691 2746 2747 2756 2822 2823 
284i 2855 2931 2951 2952 2955 2983 2984 3007 3009 3011 3016 3018 
3020 3024 3u26 3032 3034 3036 3039 3041 3043 3052 3059 3061 3066 
- 3120 3128 3140 3151 
R2 o000 an02 84x 102 122 128 246 247 248 394 396 4ol 4g2 405 421 
505 571 575 578 699 718 735 745 7993 875 874 919 922 
925 926 927 928 930 931 936 937 938 1030 1035 1121 1126 
1128 11309 1131 1135 1136 1137 1147 1148 1149 1150 1157 1157 1158 
1160 1240 1241 1422 1439 1442 1452 1597 1604 1619 1630 1659 1911 
1930 1958 1761 1967 1967 2020 2024 2024 2050 2063 20706 2083 2128 
2145 2160 2168 2174 2175 2176 2178 2179 2180 2182 2183 2192 22ul 
2209 2237 2386 2403 2496 2407 2498 2515 2519 2521 2523 252a 2608 
2611 2674 2078 2681 2685 2688 . 2814 3006 3008 3010 (3015 3017 3019 
3023 3029 3u31 ° 3033 3035 3038 3040 3042 3101 
RB 0000 0003 85% 107 108 109 263 267 269 275 277 278 397 401 410 
419 426 427 488 761 762 764 781 782 783 800 866 867 
868 870 875 914 916 920 1090 1122 1123 1126 1143 1144 1145 
1146 115° 1159 1160 1163 1422 1449 2173 2387 2391 2394 2395 2398 
2400 2494 2411 2412 2516 2529 2530 2551 2552 2602 2610 2815 2816 
3102 3122 3132 3152 3153 


R4 o000 o004 86x 111 112 113 115 123 125 250 252 267 © 272 277 292 
295 307 309 325 327 386 398 | 399 408 499 436 437 439 
447 56/ 568 569 761 765 767 770 869 870 871 872 87e 


873 924 925 935 936 934 996 1005 1007 10190 1012 1051 1081 
1062 loa4 lug92 1093 1094 1096 1097 1099 1101 1105 1108 1109 1152 
1153 1154 1155 1155 1161 ‘1161 1279 1354 1361 1375 1376 1377 2046 
2061 2078 2086 2121 2122 2133 2147 2148 217% 2186 2181 2405 2409 
2517 2518 3495 3106 3108 31350 3135 
R5 ooou oueSs 87% 113 115 116 116 118 119 i20 123 125 131 264 268 


COMMON 2.5 AND 10 MB FORMATTER 


R6 


RT 
R8 


RI 
RCHECK 
RCK.0 
RCK,1 
RCKRTN 
RCMD 
ROCK 
RDF 
REC,1 
RECODE 
REOUNe1L 
REDUN.2 
REDUN.S 
REDUNCK 
RESET — 
RESTOC 
RETOPSW 


RETOPSW1- 


RF1,0 
RFlel 
RFA 
RFAT 
RSA 
RSAVE 
SCol 
SC.2 
sC.3 
SC.4 
SC.5 
sc.8 
SCAN 
SCAN1 
SCANOST 
SscO.1 
SCO.2 
SECT 


SECTAB 
SECTADYV 


0u00 


0000 
0000 


0000 
0000 
ao00 
0000 
0000 
0000 
0000 
oo00 
6000 
0000 
0o00 
0000 
0000 


0000. 


0000 
0000 
oo00u 
6000 
6900 
0000 
0000 
6000 
0000 
6000 
0000 
e000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0c00 


Go00 
0000 


0006 


0007 
0008 


0009 
1807 
20p2 
2004 
2008 
1804 
230C 
2B10 
1E9C 
1£98 
2128 
2142 
2150 
2120 
1808 
1809 
L4AC 
14B6 
LFF6 
1FF8 
185C 
22E6 
1858 
2CFC 
1D9C 
1DA8 
1D80 
1C9E 
1CAE 
1CE8 
1090 
1096 
20F2 
20FC 
2102 
0008 


180A 
2066 


270 
O77 
1902 
1943 
BBs 
349 
783 
1509 
1635 
2023 
89% 
90» 
488 
91x 
1816 
2584 
2585 
2586 
1813% 
25a5 
1851 
2259 
22356% 
2631 
2640 
2646% 
2622 
1817* 
1818 
1446 
1489 
2483 
2489% 
1852« 
2376x 
1851 
797 
2146% 
2149 
2155 
2053 
2047 
2077 
2045 
2146% 
2607x 
261lis 
2613*% 
1801 


2440 


2541 
2593 
2947 
1823% 
2479 


272 
994% 
1993 
1945 
110 
353 
1131 
1510 
1643 
3116 
129 
121 
3154 
304 
2901 
2594 
2588 
2951 
2500 
2647 
2409 
2265 
2661 
2656 
2644 


2628* 
2017 
2974 
1486* 
149¢* 
2488* 
2540 
2007 


2005 
B29 
2152 
215%* 
2157* 
2059 
2061% 
2089 
2069 
2161 


2613 
2666 
2088 
2441 
2542 
2628 
3004 
1976 
2537* 


506 
998 
1995 
1948 
120 
389 
1132 
1514 
1644 
3117 
130 
122 


311 


2592 


2887 
2893% 
2519 


2670 


2376 


2547 
2544 
2492 


2491 
836 


2082 


2693 
2099 
2443 
2543 
2680 
3003 


343 
999 
1906 
2690 
127 
394 
1133 
1575 
1646 
3118 
131 
127 


322 


2914 
3061 
2521 


2879 


2878 
865 


2143 


2100 
2447 
2560 
2744 
3922 


412 
1001 
1913 
3053 

266 

391 
1133 
1580 
2012 
3124 

759 

128 


330 


2531 


966 


2195 
2457 
2564 
2839 
3047 


PAGE 


714 
1015 
1915 
3058 

268 

393 
1450 
1585 
2013 
3125 

913 

305 


1085 


3082x 


976 


2221 
2460 
2570 
2842 
3056 


77 «112373509 


719 
1111 
1917 


3065. 


274 
486 
1452 
1596 
2014 
3136 
937 
312 


1086 


981 


2247 
2461 
2574 
2643 
3056 


726 
1449 
1919 
3105 

300 

492 
1456 
1595 
2015 
3137 

943 

324 


1088 


1077 


2250 
2463 
2573 
2845 
30712 


01/11/80 


748 
1450 
1921 
3106 

315 

493 
1466 
1609 
2016 
3153 
2022 

331 


10893 


1475 


2258 
2467 
2577 
2849 
3072 


914 
1454 
1925 
3134 

319 

494 


1497 


1617 
2017 
315% 
2026 

480 


1090 


2191 


2259 
2488 
2583 
2867 


316 
1456 
1925 
3135 

320 

757 
1502 
1628 
2018 


2027 
481 


1092 


2212 


2261 
2438 
2586 
2685 


967 
1458 
1926 
3136 

337 

775 
1503 
1633 
2021 


482 


1275 


3092 


2271 
2538 
2587 
2899 


972 
1461 
1932 


341 
776 
1504 
1634 
2022 


485 


2437 
2539 
2069 
2912 


HE 


COMMON 2.5 AND 10 MB FORMATTER 


SECTERR 
SECTNUM 
SEEK 
SELCH 
SELECT 
SELTST 
SET.RTN 
SETKS 
SETLST 
SETMSG 
SETHSG1 
SINK 
SKCNT 
SKRTRY 
SLAD 


SLCHWT 
SOFTERR 
STAMSG 
START 
STARTS 
START4 


eraAyTa 
VIAnMIsS 


STAT 


STATCHK 
STCON 
STOP 
su0.0 
suo.1 
SYNC 
SYNCTAB 
TABSIZ 
TDA.2 
TDA.2 
TOA32 
TDATA 
TEST 
TESTO 
TESTL 
TESTS 
TIMER 
TITLE 
TOTAL 
TOTERR 
TOTMSG 
TRACK 


TST.1 
TSTBRK 
TSTOU 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 


0000 
o0gu 
000g 
0000 
0000 
c000 


nann 
vuuy 


auo9 


0006 
0000 
0000 
0000 
0000 
0000 
0000 
e000 
0000 


0000. 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
o000 
0000 
0000 
o0a00 


0000 
0000 
oo00 


2108 
1894 
1806 
1714 
1B30 
1610 
162A 
1320 
132A 
1B48 
1B4E 
1600 
1860 
1864 
0007 


23356 
2190 
1674 
OASE 
OAT?! 
OATY 


NARS 
ue TaQ 


O0QA: 


2350 
11B6 
1801 
1F5A 
1F62 
188A 
1828 
0002 
203¢ 
205C 
204E 
202A 
16FC 
24A4 
2448 
1870 
OF7C 
18A0 
1618 
161A 
1654 
0008 


24c4 
1248 
1208 


2612 
1873 
1815 
1758 
1920 
461 
1295 
244 
466 
1902 
1943% 
1274 
1863x 
1854 
1800x 
2870u 
2872 
2617 
692 


2616* 
2085 
23a2 
2012 
1922 
477 
130v 
249 
509 
1904 
1947 
1682* 
2002 
2375 
2367 
2877 
2889 
2667* 
1726* 
137 
21%" 
220 
216 
1928 
2641 
2833 
2972 
2937 
112% 
2013 


2498 
1974 
1975 
1964 
25235 
2533 
2520 
2512* 
330 
3057 
3060* 
524 


1880* 
539 
574 

1722* 

1908 

2287 

2636 

2907 

3068* 

1002 
554 


2088 
2637 
2367 
1934* 
1694 
1/07 
506 
1266* 
1918 


2962 
2633 
2496. 
2878 
2921* 


211* 


2206 
2377 
2643 
2835 
2975 


1638 
2015 


2177 


331 


1857 


S72 
655 


2090 
2289 
2653 
3U04 


1009 
659 


2099 
2754 
2741 


1139 


1924 


2965 
2747 
2491 
2879 


2e2x 
2380 
2643 
2863 
2977 


2490 


410 


2033 


1698 
658 


2093 
2291 
2655 
3049 


1176 
984 


2250 
2830 
2811 


1169 


1941* 


2823 
2492 
2888 


582 
2415 
2648 
2881 
2960 


2504 


412 


PAGE 


2744 


1260 


2983 
2501 
2322 


2416 
2650 
2895 
2980 


2859 


452 


2108 
2295 
2742 


2855 
1231 


78 11337309 01711760 


1950 


2502 
2924 


2418 
2749 
2908 
2986 


2877 


455 


2115 
2368 
2751 


1639 


2504 
2967 


2418 
2752 
2922 
2988 


2924 


488 


2117 
2372 
2820 


2741 


2494 
2758 
2925 
3062 


2967 


(1755 


2205 
2379 


. 2826 


2811 


2502 
2760 
2930 
3065 


1756 


2222 
2493 
2852 


2859 


2505 
2762 
2934 


2236 
<566 
2854 


286n 


2634 
2824 
2936 


2248 
2621 
2862 


2861 


2638 
28¢8 
2960 


2275 


2624 — 


2880 


COMMON 2.5 AND 10 MB FORMATTER 


TSTEND 
TSTMSG 
TSTPARM 
TYPTAG 
UNARY 
wCMD 
WF1,0° 
WwF1,1 
wr2 
wF2,0 
WF2.1 
WFA 
wFEMT 
WSA 

WTF 
XTERR1L 
XTERR2 
ZERONE 
ZERONEL 


0000 
o0008 
0000 
0000 
o000 
0000 
0000 
ooo 
0000 
0000 
0000 
ocou 
o0dg0 
0000 
0000 
0000 
0000 
0000 
0000 


vDGé2 
163C 
1002 
163E 
OF 72 
1800 
1F8C 
1F8E 
2098 
209A 
209C 
1854 
22BC 
1850 
29Dc 
14¢€0 
14EE 
OBAG 
OBAE 


530% 
1716% 
2058 
1842« 

487 
1809x 
2438x 
24359% 
2560 
2561 
2562x 
1850 
2439 
1849* 
1849 
1498 
1511 

337 

341% 


1953 
1717 
2093* 
1961 
Tale 
2869 
2448 
2442 


2578 
257¢ 
2010 
2569 
2008 
2168 
1505* 
1517* 
1760 
1768 


2654 


2446 


2576 
2861 
25641 
2860 
2406 
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2856 3652 


2407 2513 2514 2526 


2568 


01/11/60 


2817 


*e 


3051 


3080* 


ee 


